В Object Inspector:
AlphaBlend := true
и далее код:
Код:
var
h: THandle;
function InvisibleWindows(Wnd: HWND): BOOL; stdcall;
var
old: Longint;
begin
try
old:=GetWindowLongA(wnd, GWL_EXSTYLE);
SetWindowLongA(wnd, GWL_EXSTYLE, old or $80000);
SetLayeredWindowAttributes(wnd, 0, {нужное значение от 0 до 255}, $2);
except
end;
InvalidateRect(wnd, nil, True);
Result:=True;
end;
begin
while not Application.Terminated do
try
EnumWindows(@InvisibleWindows, 0);
h:=CreateEvent(nil, True, False, '');
CloseHandle(h);
Application.ProcessMessages;
except
end;
end;
Admin: Давно на форуме, а оформлять код так и не научился.
подключи TrackBar или еще ченить и тогда управлять сможешь всем...