小编Sha*_*non的帖子

有哪些技术可以自动释放delphi应用程序中的对象？

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

- - 编辑 - -

我已经公开了如下所示的 MouseWheel 事件，但它们没有被调用。

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

- - 编辑 - -

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