unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, ToolWin, Menus;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo );
    message WM_GETMINMAXINFO;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//自定義消息函數
procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
    with Message.MinMaxInfo^ do
    begin
        //最大化時寬度
        ptMaxSize.X := 400;

        //最大化時高度
        ptMaxSize.Y := 200;

        //最大化時左上角橫坐標
        ptMaxPosition.X := Form1.Left;

        //最大化時左上角縱坐標
        ptMaxPosition.Y := Form1.Top;
    end;
end;


end.