TreeView - Übergeordneten Eintrag ermitteln

[WIN-MANww]

Hi zusammen

Ich habe hier ne TreeView und würde gerne herausfinden, wie der Text eines übergeordneten Items ist. Hier ein Beispiel um das Ganze ein bischen anschaulicher zu Schildern:

-Erster Eintrag
|_ Erster Untereintrag
|_ Zweiter Untereintrag
-Zweiter Eintrag
|_Erster Untereintrag

Nun möchte ich wissen, wenn zum Beispiel beim ersten Eintrag der Erste Untereintrag markiert ist, welches der übergeordnete Eintrag ist, in dem Fall also "Erster Eintrag".

Ziel dieser Aktion ist, nachher per Doppelklick auf einen Untereintrag dazugehörige Informationen in ein Memo zu laden, nur wenn ich nicht weiss, was jetzt markiert ist, also zu welcher Gruppe der Untereintrag gehört, dann weiss ich auch nicht, aus welchem Array ich die Informationen laden soll.


Danke schon mal im voraus

[Cmd.exe]

Hi.
Den übergeordneten Eintrag kannst du mit der Eigenschaft Parent herausfinden.

Code:

übergeordneterEintrag:=TreeView1.Selected.Parent;

Um den Text des übergeordneten Eintrags zu bekommen musst du nur noch ein ".Text" anhängen.

[WIN-MANww]

Ah, wie gewohnt, schnelle und gute Antworten. Danke cmd.exe

War ja klar: Wo ein Kind ist, da muss auch n Elternteil sein

[delphinia]

Zitat von Cmd.exe:

Hi.
Den übergeordneten Eintrag kannst du mit der Eigenschaft Parent herausfinden.

Code:

übergeordneterEintrag:=TreeView1.Selected.Parent;

Um den Text des übergeordneten Eintrags zu bekommen musst du nur noch ein ".Text" anhängen.

Genau SO habe ich es geschrieben doch bei entsteht beim makieren ein Zugriffsfehler... was läuft da falsch?

[taaktaak]

Weil in deinem Fall der Parent NIL ist?

[delphinia]

na eigentlich nicht. Eigentlich ist dieser vorhanden und auch nicht nil ist sehr merkwürdig? wie überprüfen ich das?!

Ist das erstemal das ich mit eienr TreeView arbeite. Das einfügen von Daten ging ja leicht aber das nun hmmm

[taaktaak]

Dann bitte eine etwas konkretere Fehlerbeschreibung.

[delphinia]

Zugriffsverletzung bei Adresse 00482C62 in Modul 'Test.exe'. Lesen von Adresse 00000008

das ist die Meldung wenn ich ein Knoten makiere

[taaktaak]

Dann etwas mehr Code von der vermuteten Fehlerstelle

[delphinia]

laut Delphi das dann zu der Zeile spring die den Fehler auslöst steht nur

Delphi-Quellcode:

procedure TForm1.TreeView1Click(Sender: TObject);
var Node: TTreeNode;
begin 
 // Node := TreeView1.Selected;
 // if Assigned(Node) then
 // Node.Text;
   // Label1.Caption := TreeView1.Selected.Parent.Text

Label1.Caption := TreeView1.Selected.Parent.Text;
end;