Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2011.10.09;
Скачать: [xml.tar.bz2];

Вниз

Как создать трёхуровневый список в 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;


 
Palladin ©   (2011-06-23 11:09) [6]


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

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


 
Dennis I. Komarov ©   (2011-06-23 11:25) [7]

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


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

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



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

Форум: "Начинающим";
Текущий архив: 2011.10.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.003 c
15-1308391782
alexdn
2011-06-18 14:09
2011.10.09
гиперссылки


15-1307505868
~
2011-06-08 08:04
2011.10.09
Посыпался хард


15-1308317438
Brabus
2011-06-17 17:30
2011.10.09
Ограничение на ввод


15-1308328493
alexdn
2011-06-17 20:34
2011.10.09
по Inno setup


15-1308256200
Юрий
2011-06-17 00:30
2011.10.09
С днем рождения ! 17 июня 2011 пятница





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский