请问如何用语句来使窗口最大化或者最小化？比如我要按一个BUTTON然后使窗口最大化，而不是按窗口右上角。

Question

如题！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
   form1.WindowState:=wsmaximized;
end;

Answer 2

是不是这样:)procedure TForm1.Button1Click(Sender: TObject);
begin
       ShowWindow(Form1.handle,SW_MAXIMIZE);//最大化
end;procedure TForm1.Button1Click(Sender: TObject);
begin
      ShowWindow(Form1.handle,SW_MINIMIZE);//最小化
end;

Answer 3

我觉得还是通过消息来控制最好：最大化：
  SendMessage(handle,WM_SysCommand,SC_MAXIMIZE,0);
最小化：
  SendMessage(handle,WM_SysCommand,SC_MINIMIZE,0);
还原
  SendMessage(handle,WM_SysCommand,SC_RESTORE,0);

Answer 4

例如一个窗体FORM1，在FORM1上放了一个按钮BUTTON1.一个按钮BUTTON2.
我想按BUTTON1后，使FORM1最大化。按BUTTON2后使FORM1最小化。
我刚才按您说的做了，可是提示说“Access violation at address 0044cf8f in module 'Project1.exe'. Read of address 00000180”
怎么回事？

Answer 5

deldelmeme979(急？急也没用)
谢谢，你的方法我试了，成功，非常感谢！