//使无标题窗口打开就是最大化
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Width:=screen.Width;
form1.Height :=screen.Height ;
end;
//最大化
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Width:=screen.Width;
form1.Height :=screen.Height ;
end;
其实angelgekko的是标准答案:
来自:angelgekko, 时间:2003-9-12 14:16:00, ID:2174214
PostMessage(handle, WM_SYSCOMMAND, SC_MINIMIZE, 0); // 发送最小化消息
PostMessage(handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0); // 发送最大化消息
PostMessage(handle, WM_SYSCOMMAND, SC_RESTORE, 0); // 发送还原消息