Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.01.30;
Скачать: 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 вся ветка

Текущий архив: 2011.01.30;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.003 c
2-1289575914
faiwer
2010-11-12 18:31
2011.01.30
Windows 7


4-1244384113
dmitry_12_08_73
2009-06-07 18:15
2011.01.30
Конфликт SetWindowsHookEx при быстром 5-тикратном нажатии Shift


2-1289388923
FedorS
2010-11-10 14:35
2011.01.30
CodeGear 2009 и Rave Reports 7.6.0


15-1287098390
Германн
2010-10-15 03:19
2011.01.30
Шаблон для оператора case


8-1209027451
andreil
2008-04-24 12:57
2011.01.30
Как преобразовать 8-битеый цвет в 4-байтный TColor?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский