unit1.pas

来自「Delphi高级界面特效制作百例源代码,这是随书源代码部分,不知可否」· PAS 代码 · 共 47 行

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.