一站直销 > Delphi7窗口不要最大化。最小化可以了。一个关闭，一个最小化，最大化按不到下去就对了。请问怎样

Delphi7窗口不要最大化。最小化可以了。一个关闭，一个最小化，最大化按不到下去就对了。请问怎样

2025-04-04 09:17:59

推荐回答（2个）

回答1：

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;

回答2：

Form属性BorderStyle设置bsSingle，然后BorderIcons，把biMaximize选择为False。