Form auf fsStayOnTop setzen

[mschaefer]

Moin, nochmal,


hatte gerade noch einen Zufallstreffer: Man kann auch Nicht-Hauptformulare auf StayOnTop bringen.

1. Hauptformular auf Stay-onTop setzen
2 Unterfomular auf StayOnTop setzen
3 Im Unterformular unseren WinApi aufruf durchführen

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, Left,Top, Width,Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

So habe ich jetzt auch meinen Splash-Screen auf StayOn top bis ich Ihn nach drei Sekunden
per Timer schließen lasse.

Schönen Anbend noch... // Martin