过虑窗体最小化消息

很久没写随笔，今天在写一个托盘程序的时候，要捕获窗口最小化的消息，在WndProc里面没有捕获到，后面在TWinControl找到实现WM_SYSCOMMAND的过程。重写就可以了，其实WndProc里面也是可以的，刚开始写错了。

procedure TfrmMain.WndProc(var aMsg: TMessage);
begin
  if aMsg.Msg = WM_COMMAND then
  begin
    Memo1.Lines.Add('WM_Command');
    inherited;
  end
  else
  if aMsg.Msg = WM_SYSCOMMAND then
  begin
    Memo1.Lines.Add('WM_SysCommand');
    inherited;
  end
  else
  inherited;
end;

  procedure WMCommand(var Message: TWMCommand); message WM_COMMAND;
    procedure WMSysCommand(var aMsg: TWMSysCommand); message WM_SYSCOMMAND;

procedure TfrmMain.WMCommand(var Message: TWMCommand);
begin
  Memo1.Lines.Add(Format('ID:%d',[Message.ItemID ]));
  inherited;
end;

procedure TfrmMain.WMSysCommand(var aMsg: TWMSysCommand);
begin
  if aMsg.CmdType and $FFF0 = SC_MINIMIZE then
  begin
    Self.Hide;
    Shell_NotifyIcon(NIM_ADD, @FTrayICONData)
  end
  else
    inherited;
end;

WMSysCommand用来响应最大最小化以及关闭的消息，点击主菜单的时候也会响应，点击菜单项的时候响应的是WMCommand，消息里面包括有菜单的ID，大概是这样没深入研究。