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

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

TTreeView подпункт [D7, XP, 2003]

autokont ©   (2007-08-28 13:08:00) 

Как в компоненте добавить подпункт в определенной ветке. Допустим есть ветка менеджеры. В нее добавить любое количество фамилий.
Как добавить корневые заголовки.

---

ronyn1   (2007-08-29 09:23:00) [1]

thank you/ браво. апладисменты. пасиба.

---

KSergey   (2007-08-28 14:34:00) [2]

For you only:

procedure TForm1.Button1Click(Sender: TObject);
var
  node1, node2: TTreeNode;
begin
  node1 := TreeView1.Items.Add(nil, 'Пункт1');
  node2 := TreeView1.Items.Add(nil, 'Пункт2');

  TreeView1.Items.AddChild(node1, 'Подпункт1_1');
  TreeView1.Items.AddChild(node1, 'Подпункт1_2');

  TreeView1.Items.AddChild(node2, 'Подпункт2_1');
  TreeView1.Items.AddChild(node2, 'Подпункт2_2');
  TreeView1.Items.AddChild(node2, 'Подпункт2_3');
end;


Аплодисменты, плиз.

---

Сергей М.   (2007-08-28 13:56:00) [3]

> изначально


Это как ?

---

autokont   (2007-08-28 13:49:00) [4]

> KSergey ©   (28.08.07 13:12) [2]
> TTreeNodes.AddChild

Допустим я изначально сделал два заголовка: Манагеры и Производство.
Манагеры сверху. АддЧилд будет добавлять ниже и ниже заголовка Манагеры и затрет заголовок Производство.

---

СоветОТронин   (2007-08-28 13:48:00) [5]

> KSergey ©   (28.08.07 13:12) [2]
> TTreeNodes.AddChild

Допустим я изначально сделал два заголовка: Манагеры и Производство.
Манагеры сверху. АддЧилд будет добавлять ниже и ниже заголовка Манагеры и затрет заголовок Производство.

---

KSergey   (2007-08-28 13:12:00) [6]

TTreeNodes.AddChild

---

Сергей М.   (2007-08-28 13:10:00) [7]

> Допустим есть ветка менеджеры


Она там откуда взялась ?

---

Наверх