"Echte" StayOnTop Form öffnen

[bitsetter]

Hallo,

folgendes funktioniert bei mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.show;
end;

und dann im onShow Ereignis von Form 2:

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
begin
  Application.NormalizeAllTopMosts;
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;