delphi裡如何限制Form的大小

　　 使用過DELPHI的朋友都會注意到Delphi本身最上面的窗口，當它極大時只占屏幕的一小部分，它是如何實現的呢，請看下面的說明：
1)在FORM私有聲明部分加上如下一行：
procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;
2)在聲明部分加上如下幾行:
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;