TreeView1 CollapsAll

[Gehstock]

wie bekomm ich den Treeview komplett "eingeklappt"

[Gehstock]

Delphi-Quellcode:

    var
      TN: TTreeNode;
    begin
      TN := TreeView1.Selected;//soll immer klappen nicht nur bei selected
      TN.Collapse(true);
    end;

so gehts erstmal aber nur wenn was selected ist

[inherited]

Delphi-Quellcode:

for i := 0 to TreeView.Nodes.Count-1 do
  TreeView.Nodes[i].Collapse(true);

oder so ähnlich vielleicht? ich hab das jetzt nicht genau im Kopf, aber der müsste doch sowas in der art haben.

[Gehstock]

Delphi-Quellcode:

var
 i: Integer;
begin
for i := 0 to TreeView1.Items.Count-1 do
  TreeView1.Items[i].Collapse(true);

so gehts danke

[Lannes]

Hallo,

warum eine Schleife?

Delphi-Quellcode:

TreeView.FullCollapse;

[Gehstock]

Noch besser Danke