On 2013-10-05 15:32, silvioprog wrote:
> procedure TForm2.FormShow(Sender: TObject);
> begin
>   SetWindowLong(Handle, GWL_STYLE,
>     GetWindowLong(Handle, GWL_STYLE) and (not WS_CAPTION));
>   SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
>     SWP_DRAWFRAME or SWP_NOMOVE or SWP_NOSIZE);
> end;


Does LCL not have a TPopupWindow class? eg: like you would use for Hint
Windows, Splash Screens etc? Weird.


Regards,
  - Graeme -

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/


--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to