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

[Spring414]

谢谢.

[ksaiy]

重载WMSysCommand

[Spring414]

具体呢?:)

[Spring414]

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

[jinjazz]

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;

[beyondtkl]

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;

[lzy6204]

//声明部分
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;

[Spring414]

可以了,多谢各位.

[linzhengqun]

晕，