Treeview nur den geklickten Node expandieren

[josefkoller]

Hi,

Danke für den Denkanstoß.

So funktioniert es jetzt bei mir einigermaßen:

Delphi-Quellcode:

procedure .........click(sender:TObject);
var 
   KlickedNode: TTreeNode;
begin
   KlickedNode := nil;

   KlickedNode := TV.Selected;

   TV.FullCollapse; //alles wird geschlossen


   if KlickedNode.level <> NULL then begin
      KlickedNode.Selected:=true;
      KlickedNode.Expand(true); 
   end;

Es ist immer noch nicht ganz das, was ich will.

Damit wird beim Klick auf Level 0 alles aufgeklappt, was darunter steht. Soweit ist es so wie es sein soll.

Klickt man dann aber auf einen Eintrag Level 1, dann wird nur dieser geklickte Level 1 Eintrag mit seinen Level 2 Einträgen expandiert.

Die anderen Level 1 Einträge werden collapsed.

Aber was soll's. Ich denk, ich laß es so.

danke nochmal.

Ciao

Josef