TreeView1 CollapsAll

[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