Скачать: CL | DM;

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, а после пытаешься взять по индексу из и так уже переданного, в событии...

---

← →
12 ©   (2010-11-13 09:49) [3]

что-то вроде

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c