窗体的最小化过程是什么呀？（100分）

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
 showwindow(self.Handle,SW_MINIMIZE);
end;

Answer 1

或
procedure TForm1.Button1Click(Sender: TObject);
begin
 self.WindowState:=wsMinimized;
end;

Answer 2

SendMessage(Handle, WM_SYSCOMMAND, SC_ICON, 0);
//or
  Application.Minimize;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  sendmessage(handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
end;

Answer 4

就用Application.Minimize吧，只是一个最小化而已，没必要非用API的。

Answer 5

showwindow(Handle,SW_MINIMIZE);这个也可以。