固定form的大小

Question

怎样固定form的大小？不可以修改？

Answer 1

object Form1: TForm1
  Constraints.MaxHeight = 200
  Constraints.MaxWidth = 200
  Constraints.MinHeight = 200
  Constraints.MinWidth = 200
end

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
  private
  procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo ); 
begin 
with Message.MinMaxInfo^ do 
begin
ptMaxSize.X := 1000; {最大化时宽度}
ptMaxSize.Y := 1000; {最大化时高度}
ptMaxPosition.X :=10; {最大化时左上角横坐标}
ptMaxPosition.Y :=10; {最大化时左上角纵坐标}
end; 
Message.Result := 0; {告诉Windows你改变了 minmaxinfo} 
inherited; 
end; {$R *.dfm}end.

Answer 3

选择form的BorderStyle为bsSingle

Answer 4

最简单的主是把Form的BorderStyle设为bsSingle