Sorry - beim Iterieren über all Nodes werden ja auch solche besucht, die dich gar nicht interessieren. Dieser Code ist getestet:
Delphi-Quellcode:
procedure TDemoForm.DoProcess(tn: TTreeNode);
begin
tn.Text := Uppercase(tn.Text);
end;
procedure TDemoForm.ProcessButtonClick(Sender: TObject);
var
Nodes: TTreeNodes;
tn: TTreeNode;
begin
Nodes := TreeView.Items;
tn := Nodes.GetFirstNode;
while Assigned(tn) do
begin
DoProcess(tn.getFirstChild);
tn := tn.getNextSibling;
end;
end;
marabu