如何锁定Form的大小？

如题！

解决方案 »

  1.   

    procedure TForm1.FormResize(Sender: TObject);
    begin
      self.width:=固定值
      self.heigth:=固定值
    end;
      

  2.   

    form1.BorderStyle:=bsSingle; //可以最大、最小化form1.BorderStyle:=bsDialog  //锁定Form的大小
      

  3.   

    form1.BorderIcons:=[biSystemMenu];
      form1.BorderStyle:=bssingle;
      

  4.   

    form有个属性叫consi...size(记不住了)呵呵，可以设置form的宽高的最大值最小值。
      

  5.   

    procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    begin
    resize:=false;
    end;