Delphi组件中的鼠标滚轮事件

Question

我想编写一个使用鼠标滚轮缩放的组件类似于 Google 地球的东西。

我有一个使用 onMouseWheel 的组件，并且有属性 MaxZoom MinZoom 和 Zoom，有一个更好的选项，即使用位图 StretchDraw 我正在尝试获取表单中组件区域的位置

据我所知，我必须找到每个父级，直到找到 tCustomform 并添加所有组件的顶部和左侧组件才能获取对象位置以找到我的对象位置。有没有更好的办法

一旦我知道了位置，如果鼠标位于我的对象上方以及从哪里缩放，我就可以从鼠标光标位置缩放 map 。

有谁看过代码吗

Answer 1

如果您正在编写组件，那么您应该尝试在组件中重写这两个方法:

function DoMouseWheelDown( Shift :TShiftState; MousePos :TPoint ) :Boolean; override;function DoMouseWheelUp( Shift :TShiftState; MousePos :TPoint ) :Boolean; override;

这是 TControl 的 protected 动态方法。每当鼠标滚轮旋转时，它们就会被调用。