突出重点节点

Question

在 VirtualTreeView 中使用 getprevious(node) 或 getnext(node) 时，是否可以通过单击在选择节点上的上一个或下一个节点上获得蓝色突出显示？

Answer 1

This is how you make a node highlighted with blue: (or other colour set at VST.Colors...)
VST.Selected[Node] := True;

Do not mix with : VST.FocusedNode !

You may consider to deselect the previous blue one first. If VST.TreeOptions.SelectionOptions >> toMultiSelect = False , it's enough to simply "remember" the last one:

var
  LastSelected: PVirtualNode;  // you can put this to the Form's private section
...  
procedure DeselectLastOne();
begin
  if (csDestroying in VST.ComponentState) then Exit;
  if Assigned(LastSelected) then begin
    VST.Selected[LastSelected] := False;
    LastSelected := nil;
  end;
end;

procedure SelectNewOne(N: PVirtualNode);
begin
  if (csDestroying in VST.ComponentState) then Exit;
  DeselectLastOne();
  VST.Selected[N] := True;
  LastSelected := N;  
end;          

initialization
  LastSelected = nil;  // you can put this to the Form's OnCreate proc.

But if you have set VST.TreeOptions.SelectionOptions >> toMultiSelect = True than you'll have to iterate through VST.SelectedNodes() function first to deselect ALL highlighted nodes.

See also: VST.SelectedCount : integer; , VST.GetFirstSelected() , VST.GetNextSelected()