当我按下最大化，最小化按钮时，事件是在哪个类里处理的？

[comecsdn]

怎样自定义 最大化， 最小化，消息？

[ehom]

Application.OnMinimize是什么?它和窗体的最小化其实没关系,只有主窗体的最小化才会触发该事件,其中机妙,从VCL中可得到答案

procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand);
begin
with Message do
begin
if (CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then
Application.WndProc(TMessage(Message))//就是这里,明白?
else if (CmdType and $FFF0 <> SC_MOVE) or (csDesigning in ComponentState) or
(Align = alNone) or (WindowState = wsMinimized) then
inherited;
if ((CmdType and $FFF0 = SC_MINIMIZE) or (CmdType and $FFF0 = SC_RESTORE)) and
not (csDesigning in ComponentState) and (Align <> alNone) then
RequestAlign;
end;
end;

如果不是MainForm,它们之间没关系

[火龙岛主]

又学了一招！长见识了，:P

[FrameSniper]

Application的方法Minimize才和最小化有关系，OnMinimize是在最小化这个动作发生的时候触发的一个事件而已！！！！

[sysu]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
case Message.CmdType of
SC_MAXIMIZE: ShowMessage('最大化');
SC_MINIMIZE: ShowMessage('最小化');
end;
inherited;
end;

end.

[gwsr]

ApplicationEvents控件就有最小化事件，是OnMinimize，不过楼上的办法最好！

[u2m]

处理WMSysCommand 消息

[blueshu]

同意楼上