捕获最大化和最小化菜单按钮的单击

如果你想要用户最大化或最小化一个 Delphi 窗体时有所反应，使用下面的代码：

...
public
procedure WMSysCommand
(var Msg: TWMSysCommand) ;
message WM_SYSCOMMAND;
...

implementation
...
procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE) or
(Msg.CmdType = SC_MAXIMIZE) then
MessageBeep(0) ;

DefaultHandler(Msg) ;
end;

原文名称：Capture Maximize/Minimize Menu button click
原文地址：http://delphi.about.com/cs/adptips1999/a/bltip0999_4.htm