unitform.pas

来自「《Delphi实用程序100例》配套书源码盘」· PAS 代码 · 共 41 行

unit unitForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

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}

{ TForm1 }

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;

end.