Использование объектов в TreeView, как?

[lifead]

Всем доброго времени суток!
Не могу найти в интернете и в учебной литературе нормального описания работы компоненты TreeView с объектами. Единственное что нашел так это то что надо использовать указатели, а как эти указатели взять от отбъекта не нашел, и как из TreeView используя привязанные указатели обратиться потом к объекту?
В частности задача вот какая: есть 5 кнопок типа TButton необходимо в TreeView поместить 5 элементок с указанием на эти кнопки и при нажатии на какой либо из элементов необходимо чтобы Capion привязанной кнопки менялся и выполнялось действие которое привязано к кнопке. Как это можно реализовать?

[Скандербег]

У каждой ветки (TTreeNode) дерева есть свойство Data. Просто указатель.
Используя преобразование типов Delphi можно работать с объектами.
Например, запись указателя на какой либо объект делается так:

  TN := TreeView1.Items.AddChildObject(nil, 'Главная ветка', Button1); //ссылка указывается просто как имя объекта
  TN := TreeView1.Items.AddChildObject(TN, 'Подчиненная ветка', Button2);
//где var TN : TTreeNode

Чтобы "взять" ссылку на сохраненный объект необходимо преобразовать ее к типу объекта.
К примеру, как можно заменить надпись на кнопке, ссылка на которую есть в ветке дерева.
В обработчике события OnClick TreeView (это событие взято только для примера):

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  if (TreeView1.Selected <> nil) and //проверяем: выбрана ли хотя бы одна ветка
     (TreeView1.Selected.Data <> nil) and //есть ли в выбранной ветке ссылка на объект 
     (TObject(TreeView1.Selected.Data) is TButton) //объект тот, который нужен?
  then begin
    //преобразование позволяет обращаться к свойствам (методам и событиям) объекта
    TButton(TreeView1.Selected.Data).Caption := TreeView1.Selected.Text
  end;
end;

[PeaceDuke]

Скажите возможно ли..созданному узлу присвоить уникальный идентификатор ("например какое нибудь число") обращаться к нему по этому идентификатору

[Stilet]

А у них итак есть уникальный номер - это их индекс
т.е. TreeView1.Item[Вот тут номер по порядку]
Причем если не ошибаюсь тут и подветки учитываются.

[PeaceDuke]

Нет... этот индекс изменяется как только добавить новый узел....а я имею ввиду возможно их как-нибудь инициализировать
Чтоб в последствии обращаться только к этому узлу

И ещё один вопрос.. возможно ли что узел содержал нетолько стинг который видит пользователь?

[Stilet]

Чтоб в последствии обращаться только к этому узлу

И ещё один вопрос.. возможно ли что узел содержал нетолько стинг который видит пользователь?

Хм... Я делаю так - описываю некий класс с полями индекса, массива строк.
После создаю его экземпляр и помещаю в Data ветки. Таким образом у меня дерево расширяется за счет того обьекта в Data новыми возможностями. Смысл ясен?
Насчет нескольких строк визуально, можно, но нужно самостоятельно прописать процедуру отрисовки (чесно говоря это геморр)

[PeaceDuke]

Я понял.. спасибо))

[PeaceDuke]

Подскажите люди добрые как Когда два тривью на форме определить для какждого ветку на которой находимся...
TreeView1->Selected -не проходит

[Stilet]

Не понял... Ты нормально могешь обьяснить?

[PeaceDuke]

В общем у меня два дерева..
выбираешь ветку в одном и во втором и уже на основании Date этих веток делаем запрос к базе данных
Как определить какие ветки были выбраны?)