Delphi VirtualTreeView - 节点悬停时自动聚焦节点

Question

我正在将一个节点从一个应用程序拖动到另一个应用程序。仅当我之前选择节点时它才能正常工作。这是因为我使用 GetNodeData(FocusedNode) 方法收集数据。

我想以某种方式在节点悬停时自动聚焦节点。可能吗？

我正在使用 VirtualTreeView v.4.8.7

Answer 1

如果您想在鼠标悬停时获得焦点并选择节点，请尝试使用以下代码的 OnHotChange 事件

procedure TForm1.VirtualStringTree1HotChange(Sender: TBaseVirtualTree; OldNode,
  NewNode: PVirtualNode);
begin
  VirtualStringTree1.FocusedNode := NewNode;
  VirtualStringTree1.Selected[NewNode] := True;
end;