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