Virtual Tree - Nodes prüfen

[OG Karotte]

IterateSubtree müsste das Zauberwort sein:

In etwa so müsste es gehen (ungetestet):

Delphi-Quellcode:

Procedure TForm1.MyCallBack(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);
Begin
   If Sender.CheckState[Node] = csCheckedNormal Then DoAnything

End;

Procedure TForm1.ButtonClick(Sender: TObject);
Begin
   VST.IterateSubTree(nil, MyCallBack, nil);
End;

Weitere Info's z.B. unter http://support.soft-gems.net/forums/viewforum.php