Delphi 消息截获

1、截获指定消息

截获 WM_HOTKEY 消息，在窗体添加如下过程：

procedure proc_myMessage(var msg:TMessage); message WM_HOTKEY; begin     消息 WM_HOTKEY 的处理过程     msg.Result := 0;  // 设置消息返回值 end;

2、截获所有消息

procedure WndProc(var Msg: TMessage); override; begin     if msg.Msg = specialMessage then     begin         消息 specialMessage 的处理过程     end     else         inherited WndProc(Msg); // 其他消息调用原消息处理过程进行处理 end;