Delphi中限制FORM的大小

使用過DELPHI的朋友都會注意到DELPHI本身最上面的窗口，

當它極大時只占屏幕的一小部分，它是如何實現的呢，請看下面的說明：

1)在FORM私有聲明部分加上如下一行：

procedureMessage :TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;

WMGetMinMaxInfo( var

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;