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]

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

> изначально

Это как ?

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/ браво. апладисменты. пасиба.

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