Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите с TTreeView


WeX ©   (2009-03-02 02:12:00) 

Приветствую всех. У меня такой вопрос, есть компонент TreeView и есть кнопка. По нажатию на неё в дерево добавляются родительские элементы. Далее есть ещё одна кнопка, по нажатию на которую должна выполнятся некая функция которая проходит по всем родительским элементам, и в каждый из них добавляет заранее неизвестное колличество дочерних.

Например Было после добавления родительских:
p1
p2

а после нажатия второй кнопки стало:

p1
 |___1
 |___2
p2
 |___3
 |___4
 |___5
...

и так до последнего родительского
Как это реализовать?


KSergey   (2009-03-03 10:07:00) [1]

> WeX   (02.03.09 16:44) [4]
> Вы не поняли ___ это схематично изображаю структуру дерева.
> .. p1 и p2 раскрываются и в них есть дочерние элементы 1, 2,3 и.т.п.

И что? не надо - убери, я на авторстве настаивать не буду.


Плохиш   (2009-03-02 18:45:00) [2]


> WeX   (02.03.09 16:44) [4]

Советую начать с учебника русского языка.


Сергей М.   (2009-03-02 16:52:00) [3]


> Как это реализовать?


Что значит "как" ?


WeX   (2009-03-02 16:44:00) [4]

Вы не поняли ___ это схематично изображаю структуру дерева... p1 и p2 раскрываются и в них есть дочерние элементы 1,2,3 и.т.п.


> Кто тебе этот компонент и эти кнопки продал/подарил/ты сам
> украл , с того и спрашивай.:)


Воопщето TTreeVioew всегда был в стандартной поставке всех сред разработки... и венды в том числе


KSergey   (2009-03-02 08:18:00) [5]

>         Tree1.Items.Add(Tree1.Items[i], "__" + IntToStr(j));

        Tree1.Items.Add(Tree1.Items[i], "__" + IntToStr( k));


KSergey   (2009-03-02 08:16:00) [6]

как-то примерно так:

var i, j, k;

k := 1;
for i := 0 to Tree1.Items.Count-1 do
    for j := 1 to i+2 do
    begin
        Tree1.Items.Add(Tree1.Items[i], "__" + IntToStr(j));
        Inc(k);
    end
;


Германн   (2009-03-02 02:28:00) [7]


> WeX   (02.03.09 02:12)
>
> Приветствую всех. У меня такой вопрос, есть компонент TreeView
> и есть кнопка.

Кто тебе этот компонент и эти кнопки продал/подарил/ты сам украл , с того и спрашивай.
:)
Или задай "правильный" вопрос.


Наверх

Титульная страница Поиск, карта сайта Написать письмо