Jak zrobić,aby mój formularz był przyklejony do pulpitu?
A mianowicie,żeby przez formularz nie przechodziły inne okna tylko były na wierzchu.
Stosuje metodę:
procedure PokazOkna;
var
i:integer;
begin
HandleList.Clear;
GetProcessList; (Wymaga procedury WinApi o pobieraniu uchwytów)
for i := 0 to HandleList.Count - 1 do
begin
SetWindowPos(StrToInt(HandleList.Strings[i]), HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); // zmiana okna na zawsze na wierzchu
end;
end;
Ale ta procedura zamienia wszystkie okna na StayOnTop (zawsze na wieszchu).
A jak zrobić to bez modyfikacji okien tylko po prostu przykleić formularz do pulpitu?