很久没写随笔，今天在写一个托盘程序的时候，要捕获窗口最小化的消息，在WndProc里面没有捕获到，后面在TWinControl找到实现WM_SYSCOMMAND的过程。重写就可以了，其实WndProc里面也是可以的，刚开始写错了。
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; WMCommand WMSysCommand 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，大概是这样没深入研究。