Ganze Anwendung AlwaysOnTop?

[ralfiii]

Hallo!

Ich suche nach einer Möglichkeit eine ganze Anwendung dazu zu bringen, IMMER im Vordergrund zu bleiben.
Im Prinzip kann man ja einiges mit FormStyle=fsStayOnTop ond

Delphi-Quellcode:

procedure TfrmFoo.CreateParams(var Params: TCreateParams);
begin
     inherited CreateParams(Params);
     Params.ExStyle:=Params.ExStyle OR WS_EX_TOPMOST;
end;
procedure TfrmFoo.FormActivate(Sender: TObject);
begin
     SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_SHOWWINDOW);
end;
procedure TfrmFoo.FormDeactivate(Sender: TObject);
begin
     SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE);
end;

machen, wenn man allerdings einen einfachen MessageDlg-Dialog aufruft, dann ist die ganze StayOnTop-Sache beim Teufel.
Hab ich da was übersehen?

Danke,
Ralf

[spaxxn]

Guck mal, die Schweizer haben da was:

...ein Fenster in den Vordergrund bringen (zwingen)?

...machen, dass ein Formular immer im Vordergrund ist?

[ralfiii]

Problem gefunden.

Einfache Lösung:

  Application.MainFormOnTaskbar := True; in .dpr-File einfügen.
(Das ist eine alte Anwendung, die nach D2007 portiert wurde, daher ist der Wert nicht gesetzt)
Man sollte in der Hilfe zu fsStayOnTop erwähnen, dass dieser Wert gesettz sein muss wenn man kein seltsames Verhalten will...