| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TreeView [D6, Win95/98]

Tik ©   (2002-12-14 17:26:00) 

Есть узел. в нем 10 подузлов.
Если я нажимаю на 3-1, то у GrouoBox2 Caption измениться на 3. Если нажал на 9, то на 9.



procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var i:integer;
begin
for i:=1 to 10 do
If TreeView1.Items.Item[i].Selected then
GroupBox2.Caption:=IntToStr(i);
end;


При попытки нажать на узлы, он "вылетает"

---

TTCustomDelphiMaster   (2002-12-14 17:56:00) [1]

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if Assigned(Node) then
GroupBox2.Caption := IntToStr(Node.Index);
end;

---

Наверх