procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
//在这儿要返回给主窗口处理;
end;
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
//在这儿要返回给主窗口处理;
end;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;因为CreateParams是用来初始来当一个已经创建后窗口参数记录信息,所以
当你用重载 CreateParams过程中又调用inherited CreateParams(Params);
就会创建两个窗口。而当你在Form1调用以下命令:
AForm: TForm2;
begin
AForm := TForm2.Create(Self);//就会自动调用重载 CreateParams过程
AForm.Show;
end;