delphi – 如何将鼠标滚轮支持添加到TGraphicControl后代的组件中？

我创建了一个delphi组件,它来自TGraphicControl.是否可以添加对鼠标滚轮的支持？

—编辑—

我已经暴露了MouseWheel事件,如下所示,但它们没有被调用.

TMyComponent = class(TGraphicControl)
published
  property OnMouseWheel;
  property OnMouseWheelDown;
  property OnMouseWheelUp;
end;

—编辑—

如下所示,我试图捕获WM_MOUSEWHEEL和CM_MOUSEWHEEL消息,但它似乎不起作用.但是我设法捕获了CM_MOUSEENTER消息.我不明白为什么我可以捕获一种类型的消息,而不是另一种消息.

解决方法

TGraphicControl来自TControl,它已经支持鼠标滚轮.请参阅wm_MouseWheel消息,DoMouseWheel,DoMouseWheelDown,DoMouseWheelUp和MouseWheelHandler方法以及WheelAccumulator属性.