当按窗口标题栏上的最小化按钮时,如何去执行别的事件?

Question

谢谢.

Answer 1

下面的语句没有效果呀.
procedure TfmMain.WMSYSCOMMAND(var msg:TMessage);
begin
  Inherited;
  if msg.WParam = SC_MINIMIZE then
    Close;//关闭
end;

Answer 2

private
    { Private declarations }
    procedure WMSYSCOMMAND(var msg:TMessage);
    message WM_SYSCOMMAND ;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.WMSYSCOMMAND(var msg:TMessage);
begin  if msg.WParam = SC_MINIMIZE then
    Close
  else
  Inherited;
end;

Answer 3

procedure MySysMessage(var Msg: TMessage); message WM_SYSCOMMAND;procedure TMainFrm.MySysMessage(var Msg: TMessage);
begin
  case msg.WParam of
    SC_MINIMIZE,
      Close;
  else
    inherited;
  end;
end;

Answer 4

//声明部分
  private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
//实现部分
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType = SC_MINIMIZE
    then
    begin
      ShowMessage('Masd');//换成你要的
    end;
  Inherited;
end;