菜鸟问题：如何创建类似qq聊天窗体那样的子窗体，和主界面互不干扰

Question

问个菜鸟问题，我希望弹出的新窗体类似于qq的聊天窗口，无论主界面在托盘区还是任务栏上，多个聊天窗体和主界面之间切换都是没有问题的。
现在我在弹出窗体中用下面这句，可以将弹出的窗体放在任务栏上，但和主界面切换时有问题，而且容易失去弹出窗体的焦点
SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) or WS_EX_APPWINDOW);希望高手指点一下，谢谢

Answer 1

  protected
    procedure CreateParams(Var Params: TCreateParams); override;
procedure TfrmChat.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := GetDeskTopWindow;
end;