(Dynamisch erzeugte) Form immer im Vordergrund dargestellen

[GPRSNerd]

Zitat von DeddyH:

Oder etwas kürzer:

Delphi-Quellcode:

procedure TForm_Main.spbStayOnTopClick(Sender: TObject);
const IsDown: array[Boolean] of Cardinal = (HWND_NOTOPMOST, HWND_TOPMOST);
begin
  SetWindowPos(Handle,
               IsDown[spbStayOnTop.Down],
               Left, Top, Width, Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

Coole Vereinfachung!