我如何知道窗口的最大化， 最小化消息?

[yousoft2013]

[Wingsun]

接管系统的消息,TApplication有一个事件叫OnMessage在其中你可以收到最大化和最小化的消息.

[Lionheart]

wm_size, wm_sizing.

[PoolD]

在wm_syscommand中

[zengyufeng]

TForm1 = class(TForm)
private
procedure WMSysCommand(var Message:TWMSysCommand); message WM_SYSCOMMAND;
end;

procedure TForm1.WMSysCommand(var Message:TWMSysCommand); message WM_SYSCOMMAND;
begin
case Message.CmdType of
SC_MINIMIZE: //最小化
SC_MAXIMIZE: //最大化
SC_RESTORE: //恢复
end;
inherited;
end;

[zengyufeng]

TForm1 = class(TForm)
private
procedure WMSysCommand(var Message:TWMSysCommand); message WM_SYSCOMMAND;
end;

procedure TForm1.WMSysCommand(var Message:TWMSysCommand); message WM_SYSCOMMAND;
begin
case Message.CmdType of
SC_MINIMIZE: //最小化
SC_MAXIMIZE: //最大化
SC_RESTORE: //恢复
end;
inherited;
end;

[yousoft2013]

我已经解决了问题!thank you very much

[taste品味]

怎么不把方法共享出来呢？