ApplicationEvents组件

发布: 2023-08-11 作者: admin 浏览: 63 评论: 0 分类: C++ 标签: ApplicationEvents,OnMessage,SendMessage

使用ApplicationEvents来拦截窗体消息
  当在一个窗口上放置一个ApplicationEvents控件时,Application将会把所有的事件都转寄到ApplicationEvents;也就是说,ApplicationEvents可以拦截到应用程序的全部事件,包括OnActivate\OnHelp\OnIdle\OnRestore\OnShortCut等等,甚至可能通过OnMessage事件,在其中截取所有post到应用程序中所有窗口的消息,如WM_PAINT,WM_KEYDOWN, WM_KEYUP等常见的windows消息;所以当有消息到来的时候就会触发它的OnMessage事件，在OnMessage中监视消息就可以了。
APPLICATIONEVENTS是用来捕获程序级事件的
ApplicationEvents1Message(tagMSG &Msg, bool &Handled);
// 通过　Perform　向窗体发送 消息;　OnMessage　收不到
// 通过　SendMessage　向窗体发送 消息;　OnMessage　收不到
// 通过　PostMessage　向窗体发送　 消息;　OnMessage　可以收到
OnMessage事件只处理消息队列中的消息，SendMessage()发送的消息不会被截获。

任何窗体接收到一个windows消息，都会触发一次此事件
　　函数原型：
　　typedef void __fastcall (__closure *TMessageEvent) (tagMSG &Msg,bool &Handled);
　　Msg表示被截获的消息，Handled表示是否处理完成，为TRUE则防止被再次处理，设为FALSE则可以继续处理。

非标准消息
　　1.通知消息(Notification message)
　　此消息只发生在一些标准windows控件上
　　当一个窗体的子控件发生了一些事情后，他通知给其父窗体的消息
　　包括：按钮、编辑框、列表空、label等..
　　如：BN_CLICKED 单击按钮
　　2.自定义消息
　　相比通过改变对象成员的优点：可以不用知道接收者的确切类型，只要知道其窗口句柄；可以广播给多个接受者。
　　一般有两种方式：直接定义，WM_USER + XXX 或 WM_APP+XXX 分别为0x0400和0x8000
　　或调用API函数RegisterWindowMessage()向系统注册一个
3.发送自定义消息
　　向特定窗体发送消息：
　　TControl::Perform() 由C++ builder提供
　　SendMessage() 和 PostMessage() API函数
　　发送广播消息
　　TWinControl::Broadcast()  由C++ builder提供
　　BroadcastSystemMessage()  API函数
　　Perform() 适用于在同一应用程序的不同窗体和控件消息的传递。
　　SendMessage() 把消息直接发送给窗口函数(不入队列)，等消息被处理后才返回。
　　PostMessage() 只是单纯吧消息送到消息队列中，就立刻返回。
　　Boradcast() 只能向C++ builder应用程序中的指定窗体上的所有子控件广播消息，无法向其他应用程序广播。
　　BroadcastSystemMessage() 可以向任意的应用程序或者组件广播消息。
```cpp
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
   if( Msg.message == WM_RBUTTONDOWN&& Memo1->Handle==Msg.hwnd  )
   {
     Handled = true;//true表示已处理该消息，到此为止，不再传递了
   }
}

```

```delphi
//用ApplicationEvents控件，拦截ESC键按下的消息！
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message = WM_KEYDOWN) AND (Msg.wParam=VK_ESCAPE) then
  begin
    if IsChild(Webbrowser1.Handle, Msg.hwnd) then
    showmessage('在这里做你想做的');
  end else;
end;

```