Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.08;
Скачать: CL | DM;

Вниз

TreeView   Найти похожие ветки 

 
jjj ©   (2006-09-22 18:12) [0]

А как добавить в ручную ветку дерева (основную и дочернюю)?


 
alles ©   (2006-09-22 18:16) [1]

как добавить в ручную
это программно чтоли?


 
Ega23 ©   (2006-09-22 18:18) [2]

вот рекурсивный метод потомка TCustomTreeView. Строит дерево по списку объектов TKdrDBTreeViewItemIdent

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;


 
jjj ©   (2006-09-22 18:19) [3]


> alles ©   (22.09.06 18:16) [1]

Ага, програмно...


 
jjj ©   (2006-09-22 18:42) [4]

Что-то не очень получается, но скорее всего я чего-то не догоняю :(
У меня следующая ситуация.
Есть таблица с полями id, name, parent
parent - это id родителя.

Вот по этой таблице мне и надо построить дерево.
Я раньше никогда с деревьями не работал, поэтому если кто может помочь, подскажите пожалуйста поподробнее. Очень надо.
Спасибо.



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

Текущий архив: 2006.10.08;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.044 c
2-1158332913
dim2001
2006-09-15 19:08
2006.10.08
получить подстроку


3-1154852835
slaviq
2006-08-06 12:27
2006.10.08
Delphi+Paradox запуск приложения c CD


2-1158551785
Steep
2006-09-18 07:56
2006.10.08
Api (трей+меню)


15-1158341679
DillerXX
2006-09-15 21:34
2006.10.08
Дневной по СТС идёт....


2-1159078361
ds
2006-09-24 10:12
2006.10.08
Динамика





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский