delphi 创建一个大小不可改变的窗体,通用模板

procedure TForm1.FormCreate(Sender: TObject);

begin

form1.Left:=(screen.Width - form1.Width) div 2;

form1.Top :=(screen.Height - form1.Height) div 3;

form1.Constraints.MaxHeight:=form1.Height;

form1.Constraints.MaxWidth:=form1.Width;

form1.Constraints.MinHeight:=form1.Height;

form1.Constraints.MinWidth:=form1.Width;

end;

http://blog.chinaunix.net/uid-20564848-id-72755.html

推荐分享