重载CreateParam
procedure CreateParams(var Params: TCreateParams); override;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end;
procedure CreateParams(var Params: TCreateParams); override;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end;
Params.ExStyle=Params.ExStyle and WS_EX_TOOLWINDOW;
其它登陆的那个窗口并不是主窗口。
只是在起去的时候先创建了子窗口而已。
的确将Params.WndParent := 0;
可以实现子窗体放到任务栏。