Form最大化不可

尚未完善

unit Unit3;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm3 = class(TForm)
    private
    { Private declarations }
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
    procedure WMNCLButtonDblClk(var Message: TWMNCLButtonDblClk); message WM_NCLBUTTONDBLCLK;
    public
    { Public declarations }
  end;
var
Form3: TForm3;
implementation
{$R *.dfm}
// 不响应最大化信息
procedure TForm3.WMSysCommand(var Message: TWMSysCommand);
begin
  case Message.CmdType of
    SC_MAXIMIZE:
      Exit;
  end;
  inherited;
end;
// 标题栏双击最大化禁用
procedure TForm3.WMNCLButtonDblClk(var Message: TWMNCHitMessage);
begin
  if Message.Result = HTCAPTION then
    Exit;
  inherited;
end;
end.