[Чарик]

Помогите решить проблему! Как связать treeview и listview? Необходимо, чтобы при выборе нода отображались несколько строк в listview, относящихся к выделенному ноду. При использовании метода AddObject, в дерево добавляется новый нод. А мне необходимо добавить новую строчку в listView. Подскажите плз, как решить эту проблему?

Схематично выглядеть должно вот так:

Схематично выглядеть должно вот так:

TreeView(Root)                   ListView
   |                           |Строка1_Item2
   |--- Item1                  |Строка2_Item2
   |--- [Item2]                |
   |--- Item3                  |

И соответственно, если выбран другой нод:

TreeView(Root)                   ListView
   |                           |Строка1_Item3
   |--- Item1                  |Строка2_Item3
   |--- Item2                  |Строка3_Item3
   |--- [Item3]                |

[lmikle]

В обработчике события OnChange дерева надо вызвать соответсвующее кол-во раз метод AddItem у списка.

[Чарик]

Сообщение от lmikle

В обработчике события OnChange дерева надо вызвать соответсвующее кол-во раз метод AddItem у списка.

Можно привести какой-нибудь пример? Или ссылку где это можно посмотреть.

[Ultras]

а откуда данные беруцца для TreeView и ListView?

Второе предупреждение!!!
Aristarh Dark

[Чарик]

при создании формы из файла через stream дерева

[lmikle]

как-то так:

Код:

procedure TForm1.TreeView1Change(Sender : TObject);
begin
  ListView1.Items.BeginUpdate;
  ListView1.Items.Clear;
  Case Integer(TreeView1.Selected.Data) Of
    1 :
       Begin
          ListView1.Items.AddItem.Caption := 'Item 1-1';
          ListView1.Items.AddItem.Caption := 'Item 1-2';
       End;
    2 :
       Begin
          ListView1.Items.AddItem.Caption := 'Item 2-1';
          ListView1.Items.AddItem.Caption := 'Item 2-2';
       End;
  End;
  ListView1.Items.EndUpdate;
end;

Писал прямо тут, так что сигнатуры методов проверь.
Идея - в узле дерева хранится в св-ве data некоторый уникальный идентификатор - по нему выбираем что нам надо заполнять.