关于网络蚂蚁悬浮窗的问题，为什么我的悬浮窗会被最小化？

Question

看了相关的帖子，我的窗体中已经有了下面的代码，为什么点击主窗体最小化时，悬浮窗也跟着最小化了，我甚至在悬浮窗里捕捉了WM_SIZE消息了，仍然不行。
procedure TForm2.FormCreate(Sender: TObject);
begin
  Width:=36;
  Height:=36;
  SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;procedure TForm2.CreateParams(var Params:TCreateParams);
begin
  inherited;
  with Params do
  begin
    Style:=Params.Style xor WS_DLGFRAME;
    WndParent:=0;
  end;
end;

Answer 1

我试了，做成主窗体，用Win＋D组合键就可以最小化

Answer 2

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
这最句话放在ONSHOW事件里试试

Answer 3

用下面的试试
procedure TForm2.CreateParams(var Params:TCreateParams);
begin
  inherited;
  with Params do
  begin
    ExStyle:=Params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
    WndParent:=0;
  end;
end;

Answer 4

自己去看我写的ADSL计时器的源代码，里面也有一个悬浮窗口，并且不会被最小化