Danke
Es hat endlich geklappt.. Falls es jemanden interessiert, ich habe es folgendermaßen gemacht:
Delphi-Quellcode:
procedure Form1.Test();
var
n : PVirtualNode;
Data : PNodeData;
begin
try
vst.BeginUpdate;
n := vst.GetFirst;
vst.FullExpand(n);
while n <> nil do begin
Data := vst.GetNodeData(n);
if not Data^.flag then begin
//tu etwas
n := vst.GetNext(n);
end else begin
n := vst.GetNextSibling(n);
end;
end;
finally
vst.FullCollapse(vst.getFirst);
vst.EndUpdate;
end;
end;
Gibt es auch eine möglichkeit den baum zu durchlaufen ohne alles aufzuklappen
?