delphi 窗体最大化 最小化
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
sendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,0);//窗体最小化 任务栏中
end;
sendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,0);//窗体最小化 任务栏中
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState := wsMaximized;//窗体最大化
end;
form1.WindowState :=
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState := wsminimized;//窗体最小化到 任务栏上方
form1.WindowState :=
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState := wsnormal;//窗体正常化
end;
form1.WindowState :=
end;