Помогите плз, кому не в лом.

var
x: TTreeNode;
begin
x := TTreeNode.Create(nil);
MyTreeView.Items.AddNode(x,nil,'My node',nil,naAdd); // Runtime error!


Причем специфика такова, что MyTreeView.Items.Add я воспользоваться не могу - нужно вставить именно готовую, созданную раньше TreeNode

При создании ветки необходимо в конструктор передать экземпляр TTreeNodes, т.е.:

Код

TreeView1.Items.AddNode(TTreeNode.Create(TreeView1.Items), nil, 'test', nil, naAdd);

Спасибо, помогло. А теперь усложняем вопрос: Если у меня не объект класса TTreeNode, а объект класса
TMyTreeNode = Class (TTreeNode);
Какой формат записи Create, чтобы вызвался конструктор предка. Пока стоит так:

constructor TMyTreeNode.Create(Items: TTreeNodes);
begin
Self := TMyTreeNode(TTreeNode.Create(Items));
<...>
end

после такого создания все равно
TreeView1.Items.AddNode(TMyTreeNode.Create(TreeView1.Items),nil,'test',nil,naAdd); // runtime error

Здесь могете клянуть что не так?

Код

constructor TMyTreeNode.Create(Items: TTreeNodes); begin    inherited Create(Items); end

Только зачем тебе создавать свой TTreeNode? Если тебе нужно с каждым итемом дерева ассоциировать какие либо данные, то можешь использовать свойство Data, имеющееся у каждого итема.

Это сообщение отредактировал(а) <Spawn> - 30.9.2004, 14:53

Мне не данные нужно ассоциировать - поведение. То есть при дабл-клике делать одно (причем в зависимости от реальной ноды) и т.д., при потере фокуса - другое. И там не один сласс наследован, а целая иерархия, классы которой разнятся немного поведением.
Кстати вопрос исчерпан - все заработало. Большое спасибо.