关于截获WM_COMMAND消息

说明：

当用户从菜单选中一个命令项目、当一个控件发送通知消息给去父窗口或者按下一个快捷键将发送 WM_COMMAND 消息;

window sdk:

wNotifyCode = HIWORD(wParam); // notification code 通知码，用于区分发送消息的类型，值0则由菜单发出，值1其它发送
wID = LOWORD(wParam);              // item, control, or accelerator identifier 菜单ID
hwndCtl = (HWND) lParam;            // handle of control 句柄

 

详细请参考百度相关文章：http://baike.baidu.com/view/1800767.htm

 

通过重载wndproc截获该消息，如果直接截获该消息，则会一进入窗体就发报错，出现内存溢出的情况。所以必需加以判断，否则程序无法正常运行。以下是例子：

TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure wndproc(var Message :TMessage);override;
  end;

 

实现：

 

procedure TForm2.wndproc(var Message: TMessage);
begin

  inherited WndProc(Message);
  if HiWord(Message.WParam)= 0 then//菜单发出的消息
    if Message.Msg =WM_COMMAND then
    begin
      Memo1.Lines.Add("POPWM_COMMAND:" + IntToStr( LoWord(Message.WParam)  ));
    end;
end;