Текущий архив: 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.066 c