Delphi中TVirtualStringTree控件鼠标滚轮无法滚动问题求助

TVirtualStringTree 默认支持鼠标滚轮滚动，无需额外编写事件处理代码。出现滚轮无效的情况，可按以下步骤排查：

• 检查 WheelScrollLines 属性：该属性默认值为3，若被设为0会直接禁用滚轮滚动，确保其值大于0。
• 确认控件获得焦点：鼠标滚轮仅在控件处于激活（获取焦点）状态时生效。点击树控件区域使其获得焦点，或在窗体 OnShow 事件中调用 VirtualStringTree.SetFocus 强制激活。
• 排查消息拦截问题：若窗体上存在其他支持滚轮的控件（如 TEdit、TMemo），可能会抢占滚轮消息。可将 TVirtualStringTree 调整至控件层级顶层，或在窗体 OnMouseWheel 事件中手动传递消息给树控件。
• 验证版本兼容性：确保使用的 TVirtualStringTree 版本与 Delphi 10.2.3 Tokyo 兼容，建议下载适配该 Delphi 版本的官方控件包。

若以上方法无效，可手动在树控件的 OnMouseWheel 事件中添加处理代码：

procedure TYourForm.VirtualStringTree1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  Handled := True;
  VirtualStringTree1.ScrollBy(0, -WheelDelta div 120 * VirtualStringTree1.WheelScrollLines * VirtualStringTree1.DefaultNodeHeight);
end;

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