Форум: "Начинающим";
Текущий архив: 2007.09.23;
Скачать: [xml.tar.bz2];

Вниз

TTreeView подпункт   Найти похожие ветки 

← →
autokont   (2007-08-28 13:08) [0]

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

---

← →
Сергей М. ©   (2007-08-28 13:10) [1]

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


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

---

← →
KSergey ©   (2007-08-28 13:12) [2]

TTreeNodes.AddChild

---

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

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

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

---

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

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

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

---

← →
Сергей М. ©   (2007-08-28 13:56) [5]

> изначально


Это как ?

---

← →
KSergey ©   (2007-08-28 14:34) [6]

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;


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

---

← →
ronyn1   (2007-08-29 09:23) [7]

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

---

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

Форум: "Начинающим";
Текущий архив: 2007.09.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.048 c