Tips (1541)

Tip Bewertung (13):

{*---------------------------------------------
 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;