Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.11.2012, 11:21   #1
Phantosmagor
Пользователь
 
Регистрация: 14.03.2012
Сообщений: 24
По умолчанию TreeView и содержимое

Добрый день, уважаемые форумчане.

Столкнулся с необходимостью создать примитивный GUI для автозапуска диска.
Дано:
Treeview , в котором есть 4 Item и 1item с 4 subitems. Каждому присвоил "selectedIndex" отличный от нуля. Справа от Treeview кучка обычных "Label" .

Вопрос, как мне сделать, чтобы при выборе нужного пункта в treeview . "Label" менялись в соответствии с этим?

Делать конструкциями if/else? или может есть что-то более грамотное?
С данным элементом опыта работы ноль, к сожалению, а освоить хочется.

P.S.
http://warayg.narod.ru/context/prog/...a5/Index6.html -читал
Поиск по форуму использовал.
Phantosmagor вне форума Ответить с цитированием
Старый 06.11.2012, 11:34   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Опиши в OnClick дерева работу с TreeView.Selected - это свойство указывает на выделенный элемент.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.11.2012, 13:36   #3
Phantosmagor
Пользователь
 
Регистрация: 14.03.2012
Сообщений: 24
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Опиши в OnClick дерева работу с TreeView.Selected - это свойство указывает на выделенный элемент.
Код:
procedure TForm1.TreeView1Click(Sender: TObject);
begin
case  Treeview1.Selected.Index of
0:Label1.caption:='0';
1:Label1.caption:='1';
2:Label1.Caption:='2';
3:Label1.Caption:='3';
4:Label1.Caption:='4';
5:Label1.Caption:='5';
6:Label1.Caption:='6';
7:Label1.Caption:='7';
8:Label1.Caption:='8';
else Label1.Caption:='ошибка';
Дерево выглядит так:
0
1 пр 2
пр 3
пр 4
пр 5
6
7
8

так расставлены Selected index в свойствах treeview.

А после кода выглядит так:
0
1 пр 0
пр 1
пр 2
пр 3
2
3
4

Не понимаю, почему так странно отображает..

Последний раз редактировалось Phantosmagor; 06.11.2012 в 13:39.
Phantosmagor вне форума Ответить с цитированием
Старый 06.11.2012, 14:07   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Обьясни точнее что ты хочешь сделать после клика на ветке древа.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.11.2012, 14:18   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Вообще-то Selected.Index это относительная позиция узла в родительском узле, так что правильно все отображается
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 06.11.2012, 14:29   #6
Phantosmagor
Пользователь
 
Регистрация: 14.03.2012
Сообщений: 24
По умолчанию

Нашёл ошибку свою.. не дочитал мануал по элементу

вместо

case Treeview1.Selected.Index of

в моём случае нужен был

case Treeview1.Selected.SelectedIndex of

Индексы то присваивал вручную...
Phantosmagor вне форума Ответить с цитированием
Старый 06.11.2012, 14:54   #7
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Это называется использование свойства не по назначению. Захочется ImageList прицепить - а не моги, забито св-во. Есть св-во Data - туда и можно загружать любой Integer или Pointer
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Содержимое регистра AL Cpluser Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 5 21.01.2011 06:14
Содержимое регистров maxwelldream Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 15.01.2011 09:28
Содержимое ярлыка Gr@nd Общие вопросы Delphi 6 13.01.2010 09:06
Содержимое лейблов CraZZy RabbIt Общие вопросы Delphi 5 17.02.2009 14:20
Содержимое файла terminadoor Работа с сетью в Delphi 0 15.12.2008 00:25