| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TreeView [D6, Win95/98]
Tik © (2002-12-14 15:45:00)Иммем узел с подузлами.
При выделении первого подузла, меняется caption у groupbox2.
При выделении второго подузла, меняется caption у groupbo2x
If TreeView1.Items.Item[1].Selected then
groupBox2.Caption:="text1";
If TreeView1.Items.Item[2].Selected then
groupBox2.Caption:="text2";
А если у меня этих подузлов несколько сотен??? не писать же 200 строк?
Пробовал сделать в цикле, не получается, может я чего не так делаю, а?
For i:=1 to 100 do
If TreeView1.Items.Item[i].Selected then
groupBox2.Caption:=IntToStr(i);
Сатир (2002-12-14 21:13:00) [1]procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if Node<>nil then
groupBox2.Caption:="text"+inttostr(Node.index);
end;
Song (2002-12-14 16:47:00) [2]"не получается" - как именно не получается? Почему все думают, что отвечающие должны быть телепатами?
@andrew (2002-12-14 15:59:00) [3]Конечно не надо писать 200 строк, надо написать код в обработчике TreeView, напр., OnChange и все будет в порядке.
| |
