TTreeview - Nur Oberknoten finden und übersetzen...

[torud]

Ich habe es testhalber nun so hinbekommen...Nicht schön, aber es funktioniert! Eigentlich habe ich nur 6 Oberknoten...Könnte man das vielleicht in ner Schleife machen!?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  myNode : TTreeNode;
begin
  myNode := TreeView1.Items.GetFirstNode;
  ShowMessage(myNode.Text);

  myNode := myNode.getNextSibling;
  ShowMessage(myNode.Text);

  myNode := myNode.getNextSibling;
  ShowMessage(myNode.Text);

  myNode := myNode.getNextSibling;
  ShowMessage(myNode.Text);
end;