Hallo Richard,
die eine Möglichkeit wäre IterateSubtree
Delphi-Quellcode:
Procedure TForm1.MyCallBack(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);
Begin
If Data.xyz = abc Then Sender.IsVisible[Node] := false;
End;
Procedure TForm1.ButtonClick(Sender: TObject);
Begin
VST.IterateSubTree(nil, MyCallBack, nil);
End;
Die andere (entnommen aus diesem
Thread, gepostet von Prototypjack, leicht angepasst):
Delphi-Quellcode:
procedure Foo;
var
lNode: PVirtualNode;
Data: PYourNodeData;
begin
lNode := YourVST.GetFirst;
while Assigned(lNode) do
begin
If Data.xyz = abc Then YourVST.IsVisible[lNode] := false;
// Next Node
lNode := YourVST.GetNext(lNode);
end;
// Hier ist die Schleife beendet
end;