Question

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

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

Answer 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;

追问

左下角那里不可以选。要怎样才可以。

Answer 2

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