C++Builder 2006自定义TCustomControl无法捕获MouseWheel消息如何解决

问题原因 #

你代码的问题出在3个核心点：

1. DoMouseWheel系列方法签名不匹配：你声明的三个DoMouseWheel/DoMouseWheelDown/DoMouseWheelUp方法最后一个参数是TPoint &，而VCL父类TCustomControl的对应虚方法参数是const TPoint &，签名不一致导致你没有完成虚方法重写，VCL调用时只会走父类的默认实现，不会执行你的代码。
2. MouseWheelHandler修饰符缺失：你声明的MouseWheelHandler没有加virtual和__fastcall修饰符，多态调用逻辑无法命中你的实现。
3. 控件无法获取焦点：TCustomControl默认TabStop属性为false，你在CMMouseEnter中调用的SetFocus()会执行失败，控件拿不到输入焦点，系统的滚轮消息默认会发给当前焦点控件，导致你的控件收不到消息。

修复步骤 #

1. 修正头文件中的方法声明：

protected:
  // 修正DoMouse*系列方法签名，添加const和__fastcall
  virtual bool __fastcall DoMouseWheel(TShiftState Shift, int WheelDelta, const TPoint &MousePos);
  virtual bool __fastcall DoMouseWheelDown(TShiftState Shift, const TPoint &MousePos);
  virtual bool __fastcall DoMouseWheelUp(TShiftState Shift, const TPoint &MousePos);
  // 修正MouseWheelHandler修饰符
  virtual void __fastcall MouseWheelHandler(const TMessage &Message);

2. 在控件构造函数中开启TabStop，允许控件获取焦点：

__fastcall TMouseWheelHandler::TMouseWheelHandler(TComponent* Owner) : TCustomControl(Owner)
{
  TabStop = true;
  // 可选，开启双缓冲减少绘制闪烁
  DoubleBuffered = true;
}

3. （可选）如果需要鼠标悬浮在控件上时即使控件没有焦点也能响应滚轮，可以直接在消息映射表中添加WM_MOUSEWHEEL的绑定：

BEGIN_MESSAGE_MAP
  VCL_MESSAGE_HANDLER(WM_SIZE, TWMSize, WMSize)
  VCL_MESSAGE_HANDLER(CM_MOUSEENTER, TMessage, CMMouseEnter)
  VCL_MESSAGE_HANDLER(CM_MOUSELEAVE, TMessage, CMMouseLeave)
  VCL_MESSAGE_HANDLER(WM_MOUSEMOVE, TMessage, WMMouseMove)
  // 新增滚轮消息绑定
  VCL_MESSAGE_HANDLER(WM_MOUSEWHEEL, TMessage, MouseWheelHandler)
END_MESSAGE_MAP(TCustomControl)

修复后你的DoMouse*系列方法就会正常被调用，你可以在这些方法里处理你的业务变量，之后父类的逻辑还是会正常触发你绑定的GGMouseWheel*事件回调。

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