如何拦截'双击窗体标题栏',不能让其最大化?
1,如何拦截 '双击窗体标题栏 ',不能让其最大化?

2,如何拦截窗体关闭按钮?



[解决办法]
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
procedure WndProc(var Msg: TMessage); override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
BorderIcons := [biSystemMenu, biMinimize];
end;

procedure TForm1.WndProc(var Msg: TMessage);
begin
Msg.Result := 0;
case Msg.Msg of
WM_SYSCOMMAND:
if Msg.WParam = SC_ZOOM then Exit;
WM_NCLBUTTONDBLCLK: Exit;
end;
inherited;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := MessageDlg( '退？ ', mtWarning, [mbYes, mbNo], 0) = mrYes;
end;