delphi 窗体最大化 最小化

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin
sendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,0);//窗体最小化  任务栏中
end;

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin
form1.WindowState :=  wsMaximized;//窗体最大化
end;

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin
form1.WindowState :=  wsminimized;//窗体最小化到 任务栏上方

end;

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin
form1.WindowState :=  wsnormal;//窗体正常化
end;

转载于:https://www.cnblogs.com/jxsoft/archive/2011/04/06/2006663.html