各路有兴趣的高手：实现netants一样的悬浮窗问题中的一个小小疑惑？？欢迎指导

Question

实现netants一样的悬浮窗问题中,用下面的代码能够实现悬浮效果（最项层窗口），没有试过的兄弟可以试一下：
声明
  procedure Createparams(Var Params:TCreateParams);override;
实现
procedure TForm1.Createparams(var Params: TCreateParams);
begin
  inherited;
  With Params do
  begin
   EXStyle:=  ExStyle or WS_EX_TOPMOST ;// or WS_DLGFRAME;
   wndParent:= GetDesktopWindow;  //关键一行，用SetParent都不行！！
  end;end;现在的问题是：当这个悬浮窗在某一个窗口的主菜单（比如：文件菜单）下时，然后接下来点击“文件”菜单，这时你会发现悬浮窗被下拉菜单覆盖了，这是怎么回事呢？这时不悬浮窗不是最顶层的窗口了，那现在要保持悬浮窗还在最顶层，那应该怎么办呢？
my god ！救救我啊my god ！救救我啊my god ！救救我啊my god ！救救我啊
my god ！救救我啊my god ！救救我啊my god ！救救我啊my god ！救救我啊

Answer 1

窗口的FormStyle属性设置为fsStayOnTop就行了，不用写代码

Answer 2

楼上的兄弟请注意：
FormStyle属性设置为fsStayOnTop和上面的代码得到的效果一样啊！请仔细看看上面的内容。是子菜单覆盖窗口，这样就不是最顶层了!!