Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Anoinimous1 © (2011-06-23 09:04:00)
Помогите не могу создать трёхуровневый список из трёх баз связанных между собой по типу Класс объекта - Объект - свойства объекта.
База Paradox 7.
Получается сделать только первый уровень с классами объекта.
Еще интересует как правильно присваивать индексы новым узлам.

Anonimous1 (2011-06-23 18:42:00) [1]
Удалено модератором

Dennis I. Komarov (2011-06-23 11:25:00) [2]
Чем же тебе помочь?

Palladin (2011-06-23 11:09:00) [3]

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

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

Сергей М. (2011-06-23 10:35:00) [4]
Надо же быть таким тупорылым)

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

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 10:21:00) [5]
Удалено модератором
Примечание: мат...

Ega23 (2011-06-23 09:39:00) [6]

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

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

Anonimous1 (2011-06-23 09:23:00) [7]

> TTreeNodes.AddChild + F1

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

Ega23 (2011-06-23 09:20:00) [8]
TTreeNodes.AddChild + F1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »