频道分类

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

作者:admin 来源: 日期:2020/3/23 9:13:48 人气: 标签:

 
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