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