Treeview1 markierte Zeile (DblClick) in Edit1 kopieren

[Volker Z.]

Hallo,

da Deine Treeview Knoten nicht nur auf der ersten Ebene haben, funktioniert es nicht mit der Eigenschaft TTreeNode.Index.

Aus der OH:

Zitat:

Mit Index legen Sie die Position des Knotens relativ zu den gleichgeordneten Knoten fest. Der erste untergeordnete Knoten eines übergeordneten Knotens hat den Index 0, alle folgenden untergordneten Knoten werden fortlaufend numeriert.

Wenn, dann funktionert es mit der Eigenschaft AbsoluteIndex

Aus der OH:

Zitat:

Mit AbsoluteIndex wird die absolute Position eines Knotens in einem Baumknoten-Objekt übergeben. Der erste Knoten eines Baumknoten-Objekts hat den Indexwert 0, der erste Unterknoten den Wert 1 usw. Verfügt ein Knoten über untergeordnete Objekte, so ist sein Index stets um den Wert 1 kleiner als der des ersten untergeordneten Objekts.

Delphi-Quellcode:

if Assigned (TreeView1.Selected) then
  Edit1.Text := Copy (TreeView1.Items [TreeView1.Selected.AbsoluteIndex].Text, 1, Edit1.MaxLength)

Gruß