怎样设置一个按钮控制FORM的最大化，最小化？

Question

如题，我想用一个按钮来控制而不用标题拦上的按钮，谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    //最大化
    windowstate:=wsmaximized;
    //最小化:
    Windowstate:=wsminimized;
    //還原
    Windowstate:=wsNormal;
end;

Answer 2

简单方法，（当然还可以用发消息）
Form1.WindowState:=wsMaximized; //wsMaximized 最大化 wsMinimized 最小化 ;wsNormal 普通

Answer 3

self.windowstate:=wsMaximized 最大化

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0);  //最大化
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  SendMessage(Self.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);  //恢复
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0); //最小化
end;