Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.23;
Скачать: CL | DM;

Вниз

TreeView   Найти похожие ветки 

 
Tik   (2002-12-14 15:45) [0]

Иммем узел с подузлами.
При выделении первого подузла, меняется 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);


 
@andrew ©   (2002-12-14 15:59) [1]

Конечно не надо писать 200 строк, надо написать код в обработчике TreeView, напр., OnChange и все будет в порядке.


 
Song ©   (2002-12-14 16:47) [2]

"не получается" - как именно не получается? Почему все думают, что отвечающие должны быть телепатами?


 
Сатир ©   (2002-12-14 21:13) [3]

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if Node<>nil then
groupBox2.Caption:="text"+inttostr(Node.index);
end;



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.02 c
3-74560
Ozone
2002-12-02 13:21
2002.12.23
SQL - перехват ошибок


1-74690
Fernis
2002-12-13 04:32
2002.12.23
Свой коллекшен айтем...


6-74867
F1
2002-10-28 14:23
2002.12.23
Имитация сети


1-74659
oomneeq
2002-12-12 19:36
2002.12.23
объект как var - параметр


1-74773
oddboy
2002-12-11 08:02
2002.12.23
Как лучше на форме ввести матрицу логических значений?