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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.04.2009, 13:59   #1
Tagroth
 
Аватар для Tagroth
 
Регистрация: 10.04.2009
Сообщений: 5
Радость Связать TreeView с Panel

Доброго времени суток, товарищи программисты)) У меня к вам следующий вопрос. Требуется связать компонент TreeView с панелями. То бишь, при выборе в TreeView конкретного узла отображать связанную именно с этим узлом панель, ну а остальные панели ессесьна скрывать (Visible := False).
Tagroth вне форума Ответить с цитированием
Старый 10.04.2009, 17:43   #2
Noor
Участник клуба
 
Аватар для Noor
 
Регистрация: 01.11.2006
Сообщений: 1,082
По умолчанию

Попробуй этот код
Код:
 if TreeView1.Items[0].Selected then
 Panel1.Visible := True
  else
  begin
     if TreeView1.Items[1].Selected then
 Panel2.Visible := true
 else
 begin
    if TreeView1.Items[2].Selected then
 Panel3.Visible := True;
доработай код. что бы прятались остальные панели при активации одной.
Noor вне форума Ответить с цитированием
Старый 10.04.2009, 18:01   #3
Tagroth
 
Аватар для Tagroth
 
Регистрация: 10.04.2009
Сообщений: 5
По умолчанию

Спасибо дружище, тока у мну вопрос - если панелек много, то можно организовать цикл чтоб не писать сто панелей? То бишь вместо Panel1 написать допустим Panel(i) и сделать цикл. Такое возможно?
Tagroth вне форума Ответить с цитированием
Старый 10.04.2009, 18:02   #4
Tagroth
 
Аватар для Tagroth
 
Регистрация: 10.04.2009
Сообщений: 5
По умолчанию

В VB так можно делать насколько я помню, а в Делфях есть что-нить подобное?
Tagroth вне форума Ответить с цитированием
Старый 10.04.2009, 18:06   #5
Noor
Участник клуба
 
Аватар для Noor
 
Регистрация: 01.11.2006
Сообщений: 1,082
По умолчанию

Не плоди посты, редактируй предыдущие.
Пробуй ... не буду говорить одоначно но наверное можно - все в твоих руках !!!
Noor вне форума Ответить с цитированием
Старый 10.04.2009, 19:39   #6
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

Цитата:
То бишь вместо Panel1 написать допустим Panel(i) и сделать цикл. Такое возможно?
Недавно на форуме был примерно такой же вопрос про Label(i)...

Код:
TLabel(FindComponent('Label' + IntToStr(i))).Caption:='Сообщение :)';
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 10.04.2009, 23:46   #7
Tagroth
 
Аватар для Tagroth
 
Регистрация: 10.04.2009
Сообщений: 5
По умолчанию

DomiNick, спасибо дружище! Очень кстати))) Терь я разобрался
Tagroth вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
label1 in panel blackstersl Общие вопросы Delphi 1 09.09.2008 19:20
XPMan и Panel WOLFak Компоненты Delphi 14 25.05.2008 10:33
Помогите с компонентой Panel Ellita Компоненты Delphi 8 28.09.2007 11:35