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;