Вопрос по TTreeView

← →
SergeyVP (2002-12-16 03:57) [0]

Мастера, помогите!
Мне нужно к полю TTreeNode.Data привязать конкретный тип, например TMyType. Конечно это можно сделать так TMyType(Item.Data), но тогда все замарочки по созданию и освобожденю этого указателя нужно обробатывать в событиях OnCreate/OnDestroy формы. Я хочу разгрузить главный модуль, тем что переопределить поле Data в TTreeNode на мой тип и инициализировать его в конструкторе TTreeNode.
Теперь вопрос: как мне правильно переопределить объекты TTreeView и TTreeNode что бы это сделать?
Буду благодарен за ответы.

← →
msts (2002-12-16 08:40) [1]

procedure TForm1.OnCreateNodeClass(Sender: TCustomTreeView;
var NodeClass: TTreeNodeClass);

У дерева есть событие OnCreateNodeClass (D6) в нем и присвой значение
NodeClass := TMyTreeNode где TMyTreeNode = class(TTreeNode)
ну далее как хочешь...
НО приведение типов делать все равно придется

procedure TForm1.OnChange(Sender: TObject; Node: TreeNode);
где TMyTreeNode(Node)

Сам не юзал так что пробуй

← →
msts (2002-12-16 08:44) [2]

Еще - если идти таким путем то и свойство Data использовать не надо прям у объекта и заводи данные

← →
SergeyVP (2002-12-16 11:28) [3]

Интересно....
Попробую в этом направлении поработать.

Вопрос по TTreeView Найти похожие ветки