Hello,

I really need to create forms that stay on top of all other windows 
(yes, even other applications), but using fsStayOnTop doesn't work 
(there are a number of bugs about it but the situation isn't clear to me).

I found a couple of delphi suggestions (btw, on my old delphi 2.0 
fsStayOnTop works fine, so I wouldn't need any of this):

1) SetWindowPos with HWND_TOPMOST
2) overriding CreateParams as suggested here
http://delphi.about.com/od/formsdialogs/l/aa073101b.htm

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
   inherited CreateParams(Params);
   with Params do begin
     ExStyle := ExStyle or WS_EX_TOPMOST;
     WndParent := GetDesktopwindow;
   end;
end;

None of this works with lazarus. I saw that the only widgetset where 
fsStayOnTop is qt under linux, but this application needs to be a win32 one.
Any suggestion on how to achieve that?

Bye
-- 
Luca Olivetti
Wetron Automatización S.A. http://www.wetron.es/
Tel. +34 93 5883004      Fax +34 93 5883007
_______________________________________________
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to