Tree und seine Eigenschaften

[Ajin]

Hmm es will nicht so richtig klappen.

Mein Button soll alle Child Elemente eines Trees durchlaufen und den Text dazu ausgeben


Menschen
|
|-Horst
|
|-Herbert
|
|Katzen
|
|-Muschi
|
|-Cleo

Delphi-Quellcode:

Procedure Button1.Click(Sender: TObject);
var node, child: TTreeNode;
Begin
node:=TreeView1.Items.GetFirstNode; 
  while node <> nil do 
   begin 
    child := node.GetFirstChild;
    Showmessage(child.Text);
    node := node.GetNext
  end;
End;

Als Ergebnis bräuchte ich nun nacheinander die Strings: "Horst", "Herbert", "Muschi", "Cleo"

Es gibt unendlich viele Treeview Topics hier und keins hilft mir so recht bei der Lösung. Oder ich sehe die Lösung vor lauter Lösungen nicht