Mega Code Archive
Return the string path in a ttreeview
<![CDATA[
{*---------------------------------------------
Parent Text
---------------------------------------------*}
function SrNodeTree(pTreeNode: TTreeNode; var sRuta: string): string;
begin
sRuta := pTreeNode.Text + ' > ' + sRuta;
if pTreeNode.Level = 0 then Result := sRuta
else
Result := SrNodeTree(pTreeNode.Parent, sRuta);
end;
{*---------------------------------------------
Click an Item
---------------------------------------------*}
procedure TForm1.TreeView1Click(Sender: TObject);
var
sPath: string;
begin
label1.Caption := SrNodeTree(TreeView1.Selected, sPath);
end;
]]>