TreeView: vom markiereten Item *alle* Parents nach "oben" hin anzeigen

[juergen]

Hallo zusammen,

ich suche nach einer Möglichkeit *alle* Parents eines markierten Items auszugeben. Dazu habe ich die ganzen Eigenschaften des TreeView durchsucht und auch hier in der DP einiges gesucht, komme aber leider auf keine Lösung.

Angenommen ich habe 200 Items, verteilt auf 4 Ebenen (Parents). Wenn ich nun ein Item in der 4. Ebene markiere möchte ich alle übergeordneten Parents dazu haben.
Das unmittelbare Parent des Items ist ja kein Problem, aber wie komme ich an die anderen Parents?
Beispiel:

Code:

Projekte
  | Item 1
  | Item 2
  …
   Tätigkeiten
     | Item 22
     | Item 23
     …
        Katalog
          | Item 57
          | Item 58
          …
            Kostengruppe
              | Item 107
              | Item 108   <== markiertes Item
              &#8230;
                Anlage
                  | Item 187
                  | Item 188
                  ...

Benötigtes Ergebnis:
//Projekte/Tätigkeiten/Katalog/Kostengruppe

Ich hoffe ich konnte mich halbwegs verständlich ausdrücken.

Vielen Dank schon mal vorab!

[Redeemer]

Einfach mit Parent.Parent. So lange, bis das nil ist.

Code aus einem Programm von mir:

Delphi-Quellcode:

function TFrameUsers.GetChannelPath(Node: TTreeNode): string;
begin
  Result := '';
  repeat
    Result := '/' + Node.Text + Result;
    Node := Node.Parent;
  until Node.Parent = nil;
  Result := '/' + Result;
end;

Das ist für den Fall, dass man das markierte Element drin haben möchte aber das Wurzelelement nicht. Wer etwas anderes will, muss das entsprechend anpassen.

[juergen]

Hallo Redeemer,

vielen Dank! :dp:

Genau das habe ich gesucht.
Wie so oft ist es im Nachhinein ganz logisch und "einfach".

Gute N8!