Du musst vermutlich die Methode CreateParams einbinden:
Delphi-Quellcode:
TForm1 = class(TForm)
private
procedure CreateParams(var Params: TCreateParams);override;
public
{ Public-Deklarationen }
end;
...
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
Params.WndParent := 0;
end;
Oder SetWindowPos verwenden.. mit den entsprechenden Flags.
Zitat:
Bereits angezeigtes Fenster immer im Vordergrund halten ohne die Position zu verändern:
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE);
gruss