Текущий архив: 2007.09.23;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
