VirtualTreeview Nodes und Expand

[Onkelrossie]

Hallo hanspeter,
mit den Funktionen "GetFirstSelected" und "GetNextSelected" bekommst du den ersten und die darauf folgenden Nodes die Selectiert sind. Das übergibst du dann in einer Repeat-Until-Schleife der Variable "Node" die das ganze solange bis zum letzten selectierten Node wiederholt.
In etwa so (Code nicht getestet):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  Node : PVirtualNode;                 //x beliebige variable die auf PVirtualNode zeigt
begin
  Node := VST.GetFirstSelected;        //erster selectierter Node wird ausgelesen und übergeben
  repeat                               //führe folgende Befehle...
    VST.Expanded[Node] := True;        //Node ausklappen wenn er Selectiert ist
    Node := VST.GetNextSelected(Node); //nächsten selectierten Node auslesen
  until (Node = vST.GetFirst);         //...solange bis wieder der erste Node erreicht ist
end;

Ich hoffe ich konnte dir helfen.


HG
Onkelrossie