限制FORM的大小

在FORM私有声明部分加上如下一行：
procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo );message WM_GETMINMAXINFO;

在声明部分加上如下几行:
procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
  with Message.MinMaxInfo^ do
  begin
    ptMaxSize.X := 200; {最大化时宽度}
    ptMaxSize.Y := 200; {最大化时高度}
    ptMaxPosition.X := 99; {最大化时左上角横坐标}
    ptMaxPosition.Y := 99; {最大化时左上角纵坐标}
  end;
  Message.Result := 0; {告诉Windows你改变了 minmaxinfo}
  inherited;
end;