如何拦截窗体上所有TWinControl的WM_GETOBJECT消息且无需逐个子类化？

我太懂这种逐个子类化所有控件的痛苦了——不仅要手动遍历所有面板、编辑框、列表视图这些控件，连动态创建的都不能漏，而且用SetWindowSubclass时稍不注意就会因为生命周期管理不当搞出崩溃或者内存泄漏。其实有两个更优雅的全局方案，能一次性覆盖所有TWinControl，完全不用逐个处理：

方法一：利用VCL的Application.OnMessage事件 #

这是最适合VCL应用的轻量方案，因为Application.OnMessage会捕获所有发往本应用的消息，在消息分发到具体控件之前就能拦截。

实现步骤： #

1. 给Application.OnMessage绑定一个消息处理函数
2. 在函数里筛选WM_GETOBJECT消息
3. 通过消息里的窗口句柄，用FindControl找到对应的TWinControl实例
4. 执行你的自定义处理逻辑

代码示例： #

procedure TMainForm.ApplicationMessageHandler(var Msg: tagMSG; var Handled: Boolean);
var
  TargetControl: TWinControl;
begin
  // 只处理WM_GETOBJECT消息
  if Msg.Message = WM_GETOBJECT then
  begin
    // 根据句柄找到对应的VCL控件
    TargetControl := FindControl(Msg.HWnd);
    // 确认是TWinControl的实例
    if Assigned(TargetControl) and (TargetControl is TWinControl) then
    begin
      // --------------------------
      // 这里写你的自定义处理逻辑
      // 比如：
      // 1. 调用原消息处理逻辑后修改返回值
      // 2. 直接接管消息处理（设置Handled := True）
      // 注意：WM_GETOBJECT用于辅助功能，处理时要遵循IAccessible规范
      // --------------------------
      
      // 示例：标记消息已处理（根据你的需求调整）
      // Handled := True;
    end;
  end;
end;

// 在窗体创建时注册事件
procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnMessage := ApplicationMessageHandler;
end;

优缺点： #

• ✅ 优点：实现简单，无需复杂的Hook逻辑，只针对本应用生效，性能开销小
• ❌ 缺点：只能拦截发往本应用的消息，且如果某个控件自己子类化了窗口过程并提前处理了消息，可能会错过拦截（不过这种情况在VCL里很少见）

方法二：线程级窗口Hook（SetWindowsHookEx） #

如果需要更底层的拦截，或者担心VCL消息机制有遗漏，可以用线程级的窗口Hook。这种方式能捕获本应用线程内所有窗口的消息，包括VCL可能没处理到的边缘情况。

实现步骤： #

1. 用SetWindowsHookEx安装WH_CALLWNDPROC钩子（监听消息发送到窗口过程之前的事件）
2. 在钩子过程中筛选WM_GETOBJECT消息
3. 同样用FindControl确认目标窗口是TWinControl
4. 执行自定义处理逻辑，记得要调用CallNextHookEx让后续钩子正常执行

代码示例： #

var
  g_MessageHook: HHOOK;

// 钩子过程函数
function CallWndProcHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  MsgStruct: PCWPSTRUCT;
  TargetControl: TWinControl;
begin
  // 先让后续钩子处理消息（避免破坏原有流程）
  Result := CallNextHookEx(g_MessageHook, nCode, wParam, lParam);
  
  if nCode >= 0 then
  begin
    MsgStruct := PCWPSTRUCT(lParam);
    // 筛选WM_GETOBJECT消息
    if MsgStruct^.message = WM_GETOBJECT then
    begin
      // 找到对应的VCL控件
      TargetControl := FindControl(MsgStruct^.hwnd);
      if Assigned(TargetControl) and (TargetControl is TWinControl) then
      begin
        // --------------------------
        // 这里写你的自定义处理逻辑
        // 比如修改消息参数，或者补充额外处理
        // --------------------------
      end;
    end;
  end;
end;

// 安装钩子（窗体创建时执行）
procedure TMainForm.FormCreate(Sender: TObject);
begin
  // 只针对当前应用线程安装钩子，无需DLL
  g_MessageHook := SetWindowsHookEx(WH_CALLWNDPROC, @CallWndProcHook, 0, GetCurrentThreadId);
end;

// 卸载钩子（窗体销毁时执行）
procedure TMainForm.FormDestroy(Sender: TObject);
begin
  if g_MessageHook <> 0 then
    UnhookWindowsHookEx(g_MessageHook);
end;

优缺点： #

• ✅ 优点：拦截层级更低，能覆盖所有发往本应用线程的窗口消息，包括动态创建的控件
• ❌ 缺点：需要管理钩子的安装和卸载，钩子过程不能做耗时操作，否则会影响整个应用的响应速度

关键注意事项 #

WM_GETOBJECT主要用于辅助功能（比如屏幕阅读器）获取控件的IAccessible接口，处理时一定要注意：

• 不要随意返回无效值，否则会破坏辅助功能的正常工作
• 如果需要自定义IAccessible实现，要遵循微软的辅助功能规范
• 尽量在原消息处理逻辑的基础上做扩展，而不是完全替换

内容的提问来源于stack exchange，提问作者Ian Boyd