Developing.ru

Допустим есть TreeView1.

Вещи
->Можно есть
-->Яблоки
-->Груши
->Нельзя есть
-->Утюг
-->Холодильник
Животные
->Домашние
-->Кошка
-->Собака
->Дикие
-->Тигн
-->Буйвол

Также есть TreeView2
как сделать так:
1) доустим я выбираю "Тигр". И вся стуркутра копируется и TV1 в Tv2. причем если такая структура есть она недобовляется а просто вставляется новое значение.
2) Если выбран "Дикие" Выдовалось сообщение "Есть подменю" или добовлялось все подменб автоматом... Тоже самое касается верхнего уровня...

Если что-то неонято пишите постараюсь объяснить...

что именно должно скопироваться в 1 и 2 случаи? результат покажи, так проще будет

Лана ответ я уже нашел

Еще один вопрос появился как скопировать эту струкутур в Listbox. Копировать надо те ноды которые не имеют подуровней...

не совсем понятно что надо сделать? скопировать всех детей выбранной ноды?

Игорь Акопян,
да я это потом понял что неточно объяснил
пример выше после нажтия кнопки копирвоать в листобоксе должен быть список

яблоки
груши
холодильник
утюг
собака
кошка
тигр
буйвол

т.е. те ноды не имеющие поуровней

ну тут так - идём по всем нодам первого уровня и выковыриваем детей каждой, либо читаем поподробнее про свойство NextSibling (нет под рукой - но это что-то похожее)

чёт я сегодня плох... до конца не дочитываю...
можно просто идти циклом по всем нодам и если Node.HasChildren = false копировать...

Код: Выделить всё

  for i:=0 to TreeView1.Items.Count-1 do
    If TreeView1.Items.Item[i].Count=0 then
      Memo1.Lines.Add(TreeView1.Items.Item[i].Text)

Код: Выделить всё

  for i:=0 to TreeView1.Items.Count-1 do
    If not TreeView1.Items.Item[i].HasChildren then
      Memo1.Lines.Add(TreeView1.Items.Item[i].Text)

угу спасибо вечером проверю код напишу ответ...

Developing.ru

Копирование в TreeView.

Копирование в TreeView.