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. unit Unit3; interface uses Windows, Messages, S