Treeview nur den geklickten Node expandieren

[Steku]

Guten Abend,

vielleicht kommst du so ein bisschen weiter, oder kannst es
noch etwas ausbauen...Im OnClick deines TreeViews
mal etwas in diese Richtung probieren (Ungetestet)...

Gruß
Steku

Delphi-Quellcode:

procedure DeineForm.DeinTreeViewClick(Sender: TObject);
var KlickedNode, StartNode, ParentNode: TTreeNode;
begin
   StartNode := nil;
   KlickedNode := nil;
   ParentNode := nil;

   StartNode   := DeinTreeView.Items.GetFirstNode;
   KlickedNode := DeinTreeView.Selected;
   ParentNode := KlickedNode.GetPrev;

   if (KlickedNode.Level = 1)  then
     begin
       while StartNode <> nil do
         begin
           if StartNode.Level = 0 then
             begin
                StartNode.Collapse(False);
             end;

             StartNode := StartNode.GetNext;
          end;

          ParentNode.Expand(True);
      end;
end;