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