| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TreeView, имя текущего элемента
Gu © (2010-11-13 09:04:00)На форме есть 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;
при передвижении по элементам дерева выводит не то.
12 (2010-11-13 09:49:00) [1]что-то вроде
AN := tv.Selected;
if AN = nil then exit;
while AN <> nil do
begin
s := AN.text + s;
AN := AN.Parent;
end;
sniknik (2010-11-13 09:22:00) [2]а не тебе самому не кажется странным такой бардак? в 2 строчках 3 вариации определения нода...
проверяешь на существование Selected, а после пытаешься взять по индексу из и так уже переданного, в событии...
Gu (2010-11-13 09:08:00) [3]мм. т.е. не только имя но и полный путь
т.е. при выборе скажем "Подпункт 2 подпункта 2" выдавалось бы
Пункт 1\Подпункт 2\Подпункт 2 подпункта 2
| |
