|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: Treeview subitem kopieren nach Edit
12. Mai 2013, 11:17
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;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|