重载 procedure CreateParams(var Params:TCreateParams);override; 方法 type TMyForm=class(TForm) protected { Public declarations } procedure CreateParams(var Params:TCreateParams);override; end; Inherited CreateParams(Params); with Params do begin wndParent:=GetDeskTopWindow; end;将wndParent指向桌面即可
SetWindowLong(Form.Handle, GWL_EXSTYLE, GetWindowLong(Form.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
然后想看哪个就把哪个最大化
procedure CreateParams(var Params:TCreateParams);override;
方法
type
TMyForm=class(TForm)
protected
{ Public declarations }
procedure CreateParams(var Params:TCreateParams);override;
end;
Inherited CreateParams(Params);
with Params do
begin
wndParent:=GetDeskTopWindow;
end;将wndParent指向桌面即可