TreeView, какой пункт выделен

[Doctor Wolf]

Возникла проблема. Перечитал-перелопатил почти всё, что нашёл. Проблема вот в чём - пишу программу что-то вроде хелпа, то есть дан древовидный список глав книги - нажимаешь на главу (в дереве) - отбражается её текст. Но никак не могу понять, как определить, на какую главу кликнул юзер?

Заранее спасибо.

[Teleport]

попробуй так

procedure TForm1.TreeView1Click(Sender: TObject);
begin
Label1.Caption:= Treeview1.Items.Item[Treeview1.Selected.Index].Text; 
end;

[Черничный]

procedure TForm1.TreeView1Click(Sender: TObject);
begin
Label1.Caption:= Treeview1.Items.Item[Treeview1.Selected.Index].Text; 
end;

А дочерние ветки не отоброжает. Только родительские

[Doctor Wolf]

Сообщение от Teleport

попробуй так

procedure TForm1.TreeView1Click(Sender: TObject);
begin
Label1.Caption:= Treeview1.Items.Item[Treeview1.Selected.Index].Text; 
end;

Спасибо, отображает все ветки, не только родительские. Хоть это и немного не то, что мне надо было, я с Вашей помощью уже разобрался! Спасибо!

[Teleport]

2 Черничный
эм... упустил из виду)))

2 Doctor Wolf
а наздоровьечка! ))

[Черничный]

Teleport, а ветки второго уровня можно получать?

[Alter]

Вот так полный путь, начиная с указанной ветки:

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;

Например:

procedure TForm1.TV1Click(Sender: TObject);
Var 
    Node :TTreeNode{Выделенная ветка};
    BufS :String{Для пути в дереве};
begin  
  Node := TV1.Selected;
   SrNodeTree(Node, BufS); 
  Caption := Format('[%s]',[ BufS]);
end;

[Doctor Wolf]

Label1.Caption:=Treeview1.Items.Item[Treeview1.Selected.AbsoluteIndex].Text;
Node:=Treeview1.Selected.AbsoluteIndex;

Вот то что мне надо было.