说明:
当用户从菜单选中一个命令项目、当一个控件发送通知消息给去父窗口或者按下一个快捷键将发送 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;