Treeview subitem kopieren nach Edit

[Alterauge]

Hallo,
möchte gerne die selectierte subitem nach
Edit1 kopieren.

Item Soll als Überschrift nicht kopiert werden.

Überschrift1
-Zeile 1
-Zeile 2
Überschrift2
-Zeile 1

Delphi-Quellcode:

procedure TForm1.TreeView1Click(Sender: TObject);
begin
 Edit1.Text := Copy(TreeView1.Items[TreeView1.Selected.AbsoluteIndex].Text,1); // so wird auch die Überschrift kopiert !
end;

[haentschman]

Moin...8-)

Wieviele Ebenen Überschrift und Zeilen hast du? Nur die eine wie du es als Beispiel hast oder noch mehr verschachtelt?

Prinzip:
- Wenn du die Einträge dynamisch erstellst würde ich vorschlagen in Data des Eintrages entsprechende Informationen abzulegen (ist Zeile oder Überschrift) und das beim Klick darauf auszuwerten
- Wenn du nur die eine Ebene hast kannst du ermitteln ob der Eintrag einen übergeordneten hat. Wenn ja -> ins Edit, wenn nein -> nix machen.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.TreeView1Click(Sender: TObject);
var
  Node: TTreeNode;
  tv: TTreeView;
begin
  tv := Sender as TTreeView;
  Node := tv.Selected;
  if Assigned(Node) then
    if Node.Level > 0 then
      ShowMessage(Node.Text);
end;

[Alterauge]

Hey Danke für Eure schnelle Hilfe hier!
Delphi Praxis ist super!

Danke :-D