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

Вниз

Использование TTreeView в run-time   Найти похожие ветки 

 
prorok2   (2003-02-20 22:14) [0]

Доброго времени суток, мастера!
Подскажите, как использовать компонент TTreeView в run-time. То есть как добавить узел, как добавить подузел этого узла, удалить их, как пройтись по всему дереву в поисках нужной ветки. И еще. Как можно было бы привязать узел к уникальному номеру записи в таблице базе данных. Буду очень благодарен за пример или хотя за намек на него.Спасибо.


 
mrcat   (2003-02-20 22:19) [1]

>>как добавить узел, как добавить подузел этого узла,
AddChild

>>удалить их
ThreeView.Items[MyIndex].Delete

>>Как можно было бы привязать узел к уникальному номеру записи в таблице базе данных.
ThreeView.Items[MyIndex]. Data


 
prorok2   (2003-02-20 22:22) [2]

Так у свойства AddChild есть параметр TTreeNode. Что это такое и с чем его едят?


 
mrcat   (2003-02-20 22:27) [3]

>>Так у свойства AddChild есть параметр TTreeNode.
это дочерняя ветка для твоего TTreeNode, например:

var
fChild: TTreeNode;
...
fChild := AddChild("", "prorok2");
fChild.ImageIndex := 2;
fChild.SelectedIndex := 2;
...
TreeView.Items.AddChild(fChild);




 
mrcat   (2003-02-20 22:30) [4]

поправка:

var
fChild: TTreeNode;
...
fChild := AddChild( nil, "prorok2");
fChild.ImageIndex := 2;
fChild.SelectedIndex := 2;
...
TreeView.Items.AddChild(fChild, "");


 
prorok2   (2003-02-20 22:35) [5]

Пишу так:
var fChild: TTreeNode;
begin
fChild.Create( nil);
fChild.Item[0].Text := "prorok2";
fChild.ImageIndex := 2;
fChild.SelectedIndex := 2;
TreeView1.Items.AddChild(fChild, "Text");
end;

Что должно быть вместо nil?
Эта конструкция компилится, но не выполняется из-за того, как я понимаю, что объект не создан.Правильно?


 
Song   (2003-02-20 22:37) [6]

>>это дочерняя ветка для твоего TTreeNode,
Если быть точнее, TTreeNode - это класс любой ветки.


 
Song   (2003-02-20 22:39) [7]

2prorok2 (20.02.03 22:35)
А чего ты создаёшь экземпляр своей переменной? Надо создавать экземпляр класса!


 
prorok2   (2003-02-20 22:42) [8]

2Song

так?
fChild := TTreeNode.Create(<а что здесь?>);


 
prorok2   (2003-02-20 22:42) [9]

Что-то я ляпнул :(


 
mrcat   (2003-02-20 22:43) [10]

Song © (20.02.03 22:37)

ветка в контексте AddChild. так сойдет? =)


 
prorok2   (2003-02-20 22:56) [11]

var fChild: TTreeNode;
a: TTreeNodes;

fChild.Create(a);
fChild.Text := "prorok2";
fChild.ImageIndex := 2;
fChild.SelectedIndex := 2;
TreeView1.Items.AddChild(fChild, "Text");

и падает на последней строке


 
prorok2   (2003-02-20 22:57) [12]

Что я не так делаю или не делаю?


 
mrcat   (2003-02-20 23:03) [13]

fChild.Create(a);
fChild.Text := "prorok2";
fChild.ImageIndex := 2;
fChild.SelectedIndex := 2;
TreeView1.Items.AddChild(fChild, "Text");


нафига Create? Привел же работающий код.


 
ION T   (2003-02-20 23:05) [14]

можно так:
fChild := TreeView1.Items.AddChild(TreeView1.Selected, "Text");


 
prorok2   (2003-02-20 23:11) [15]

2mrcat >Привел же работающий код.
fChild := AddChild(nil, "prorok2"); // не работающий код


 
mrcat   (2003-02-20 23:14) [16]

fChild := TreeView1.Items.AddChild("", "prorok2");


 
prorok2   (2003-02-20 23:15) [17]

2 ION T
А как добавить подузел добавленного узла?


 
prorok2   (2003-02-20 23:19) [18]

fChild := TreeView1.Items.AddChild(nil, "prorok2");
fChild := TreeView1.Items.AddChild(fChild, "prorok3");

работает.....второе добавляет подузел!!!!!
Всем спасибо...суть я уловил



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

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

Наверх




Память: 0.48 MB
Время: 0.009 c
4-5911
farhad
2003-01-16 10:38
2003.03.03
Как с помощью ShellAPI задать ссылку на сайт и ссылку на E-mail?


1-5494
VP
2003-02-20 17:35
2003.03.03
Delphi - RichEdit - Font


14-5839
shelest
2003-02-13 15:51
2003.03.03
Составление RTF файла для hlp файла.


7-5882
Safonov
2002-12-30 11:50
2003.03.03
проблема с таймером


14-5760
igorr
2003-02-16 16:03
2003.03.03
Про CD-ROM





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