Как создать трёхуровневый список в TreeView, Delphi?

← →
Anoinimous1 (2011-06-23 09:04) [0]

Помогите не могу создать трёхуровневый список из трёх баз связанных между собой по типу Класс объекта - Объект - свойства объекта.
База Paradox 7.
Получается сделать только первый уровень с классами объекта.
Еще интересует как правильно присваивать индексы новым узлам.

← →
Ega23 © (2011-06-23 09:20) [1]

TTreeNodes.AddChild + F1

← →
Anonimous1 (2011-06-23 09:23) [2]

> TTreeNodes.AddChild + F1

Что, простите?
Поподробнее, будьте добры.

← →
Ega23 © (2011-06-23 09:39) [3]

> Что, простите?
> Поподробнее, будьте добры.

В хелпе написано. С примерами. Нажимаешь F1, вызывается хелп. Внутри ищешь класс TTreeNodes, у него ищешь метод AddNode. Вдумчиво читаешь, смотришь примеры.

← →
Anonimous1 (2011-06-23 10:21) [4]

Удалено модератором
Примечание: мат...

← →
Сергей М. © (2011-06-23 10:35) [5]

Надо же быть таким тупорылым)

Буквально РЯДОМ куча строчек примера:

Add, AddChild example

The following example demonstrates how to add nodes and child nodes to a TTreeView control.

procedure TForm1.Button1Click(Sender: TObject);

var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { remove any existing nodes }
MyTreeNode1 := Add(nil, "RootTreeNode1"); { Add a root node }
{ Add a child node to the node just added }
AddChild(MyTreeNode1,"ChildNode1");

{Add another root node}
MyTreeNode2 := Add(MyTreeNode1, "RootTreeNode2");
{Give MyTreeNode2 to a child }
AddChild(MyTreeNode2,"ChildNode2");

{Change MyTreeNode2 to ChildNode2 }
{ and add a child node to it}
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,"ChildNode2a");

{Add another child to ChildNode2, after ChildNode2a }
Add(MyTreeNode2,"ChildNode2b");

{add another root node}
Add(MyTreeNode1, "RootTreeNode3");
end;

end;

> Надо же быть таким тупорылым)

да их вообще много так-то, не пойму чего ты удивляешься )

Чем же тебе помочь?

← →
Anonimous1 (2011-06-23 18:42) [8]

Удалено модератором

Как создать трёхуровневый список в TreeView, Delphi? Найти похожие ветки