Текущий архив: 2006.02.26;
Скачать: CL | DM;
Вниз
Что за класс TTreeNode и с чем его едят? Найти похожие ветки
← →
Flex_ © (2006-02-07 11:59) [0]В общем встрял с TreeView и добавлением в него объектов(строк), не могу разобраться с функцией AddChild, помогите пожайлуста!
← →
Ega23 © (2006-02-07 12:04) [1]
procedure TCustomKdrDBTreeView.AddAllNodes(ParentID: Variant;
ParentNode: TTreeNode);
var
k:Integer;
CurrNode:TTreeNode;
begin
for k:=0 to FTreeItems.Count-1 do
begin
With TKdrDBTreeViewItemIdent(FTreeItems.Items[k]) do
begin
if (Node<>nil) or (ParentKeyFieldValue<>ParentID) then Continue;
if ParentNode=nil then
CurrNode:=Items.Add(nil, DisplayFieldValue)
else
CurrNode:=Items.AddChild(ParentNode, DisplayFieldValue);
CurrNode.ImageIndex:=ImageIndex;
CurrNode.SelectedIndex:=ImageIndex;
Node:=CurrNode;
CurrNode.Data:=FTreeItems.Items[k];
AddAllNodes(KeyFieldValue, CurrNode);
end; // With
end; // for
end;
Рекурсивная процедура. По некоторому списку строит TreeView
← →
DesWind © (2006-02-07 12:05) [2]function AddChild(Node: TTreeNode; const S: string): TTreeNode;
А в чем собсна проблема? Node - родитель, s - текст(заголовок Node)
← →
Flex_ © (2006-02-07 12:17) [3]Проблема похоже во мне! Просто я никогда не работал с TreeView, и не врубился. Спасибо тебе Ega23! Суть состояла в том, что имеется таблица БД и по ней строится TreeView причём данные в таблице представляют собойдревовидную структуру! Вот и всё!
← →
Ega23 © (2006-02-07 12:30) [4]
> Проблема похоже во мне! Просто я никогда не работал с TreeView,
> и не врубился. Спасибо тебе Ega23! Суть состояла в том,
> что имеется таблица БД и по ней строится TreeView причём
> данные в таблице представляют собойдревовидную структуру!
> Вот и всё!
посмотри тут
http://delphimaster.net/view/2-1139229210/
начиная с [17]
Я когда-то ваял БД-компонентик, строящий дерево по набору данных.
← →
Flex_ © (2006-02-07 21:41) [5]Похоже разобрался, меня свела с толку функция Add... с TTreeNode. Спасибо огромное.
Страницы: 1 вся ветка
Текущий архив: 2006.02.26;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.032 c
