TreeView, имя текущего элемента

← →
Gu (2010-11-13 09:04) [0]

На форме есть Treeview и статус бар. Как узнать текущее node.text?

Treeview заполнен примерно так

Пункт 1
-Подпункт 1
-Подпункт 2
--Подпункт 1 подпункта 2
--Подпункт 2 подпункта 2
Пункт 2
-Подпункт 1
-Подпункт 2
и тп.

В обработчике пишу

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if treeview1.Selected=nil then exit;
StatusBar1.SimpleText:=treeview1.Items[node.Index].Text; // ?
end;

при передвижении по элементам дерева выводит не то.

← →
Gu (2010-11-13 09:08) [1]

мм. т.е. не только имя но и полный путь
т.е. при выборе скажем "Подпункт 2 подпункта 2" выдавалось бы
Пункт 1\Подпункт 2\Подпункт 2 подпункта 2

← →
sniknik © (2010-11-13 09:22) [2]

а не тебе самому не кажется странным такой бардак? в 2 строчках 3 вариации определения нода...
проверяешь на существование Selected, а после пытаешься взять по индексу из и так уже переданного, в событии...

что-то вроде

AN := tv.Selected;
if AN = nil then exit;
while AN <> nil do
begin
s := AN.text + s;
AN := AN.Parent;
end;

TreeView, имя текущего элемента Найти похожие ветки