TreeView

[Kugen]

Нашлась такая проблемка. Есть компонент TreeView, в нем есть дерево, мне нужно вывести путь(как с строке состояния в Windows(C:\Program Files\Borland\Delphi5\Projects)) до узла\потомка на котором я нахожусь.

[Kugen]

вывести в эдит, или метку(что бы было постоянное обновление)

[vovk]

както так

function all_text_node(trn:TTreeNode):string;
 begin
    if trn<>nil then
   result :=all_text_node(trn.Parent)+'---'+ trn.Text;
 end;

procedure TForm3.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
edit2.Text:= all_text_node(node);
end;