请问怎样锁定一个窗口的大小，使不能拉伸和缩小?

Question

procedure TForm1.FormResize(Sender: TObject);
begin
  frmMain.Height:= 473;  //你想要的大小
  frmMain.Width:= 616;
end;

Answer 1

处理窗口的OnResize事件procedure TfrmMain.FormResize(Sender: TObject);
begin
  frmMain.Height:= 473;  //你想要的大小
  frmMain.Width:= 616;
end;

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  Constraints.MaxHeight := Height;
  Constraints.MaxWidth := Width;
  Constraints.MinHeight := Height;
  Constraints.MaxWidth := Width;
end;

Answer 3

NO1,NO2,NO3,NO4
都可以，看那种适合你

Answer 4

同意fshrq()　
最好用
form.constraints
最大和最小相等