张志峰的博客

水滴石川,积少成多。

导航

Delphi创建悬浮窗体的注意问题

Posted on 2011-07-18 18:28  ╰★张志峰★╮  阅读(1902)  评论(1编辑  收藏  举报

 

Delphi 的 TForm.FormStyle 具有 fsStayOnTop 属性,但只是对其程序本身而言的,
也就是说只在此应用程序本身的窗口中是前端显示的,其他的程序的窗口仍然可以覆盖
此类型的窗口。这是因为此窗口的父窗口是 TApplication 。要让悬浮窗口独立的显示
在屏幕前端,应在创建窗口时将其父窗口设置为"桌面"。
   Form2 := TForm2.CreateParented(GetDesktopWindow);


CreateParented与Create的区别?
CreateParented={ParentWindow=指定的窗口句柄,create(nil)}
CreateParented创建的是没有所有者,但可以指定容器窗口.