TVirtualStringTree默认情况下,如果它是聚焦的 – 它将在鼠标滚轮上滚动,即使鼠标没有过度控制(除非它在另一个TVirtualStringTree上).
我已经使用OnMouseWheel事件做了这个,并检查了PtInRect,如果Mouse.CursorPos是否超过控件,但我觉得有更好的方法来做同样的事情,因为这样我必须为每个定义一个新的事件TreeView我添加并处理何时聚焦/取消聚焦控件,所以我希望必须有更好的方法来禁用它.
所以要清楚,我希望鼠标滚轮功能像往常一样工作,但只有当鼠标悬停在VirtualTreeView上时.
解决方法
将TApplicationEvents控件下拉到表单
在TApplicationEvents onMessage中
procedure TForm5.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
pnt: TPoint;
ctrl: TWinControl;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
if not GetCursorPos(pnt) then Exit;
ctrl := FindVCLWindow(pnt);
if Assigned(ctrl) then
Msg.hwnd := ctrl.Handle;
end;
end;