procedure TForm2.FormCreate(Sender: TObject);
begin
perform(WM_SIZE,SIZE_MAXIMIZED,0);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
perform(WM_SIZE,SIZE_MAXIMIZED,0);
end;
转载于:https://www.cnblogs.com/fengju/archive/2009/05/12/6173881.html