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

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;