Question

delphi 怎么控制窗口大小

控制窗口大小，不可随意变大。如果是 ： 设置BorderIcons的biMaximize为false, BorderStyle为bsSingle。这些我都知道。但只针对一般的form。我在form里用了suiform，如果只改上面说的属性，根本没有效果。到底要怎么改？

Answer 1

放入窗口里
form1.Constraints.MaxHeight:=400;
form1.Constraints.MaxWidth:=600;
form1.Constraints.MinHeight:=100;
form1.Constraints.MinWidth:=150; 这个代码是限制窗口的宽和长大小的！

Answer 2

//写个过程就可以unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;var
Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style xor WS_THICKFRAME;
end;end.

Answer 3

尽量多的使用容器（比如Panel,Toolbar）和splitter,并且设置属性为alclient,alleft,alright...总之不是alnone就可以。

Answer 4

没用过第三方的东西不知道下面的得不得。Form1.BorderStyle:=bsDialog;或procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Resize:=False;
end;