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;