Обратное построение древа

← →
Oleg_ (2005-03-15 20:10) [0]

Подскажите, как можно осуществить сабж
т.е. частный случай: есть уже два узла без родителя, необходимо создать для них общий родительский узел.
следующий код не проходит т.к. Parent read-only.

n:ttreenode;//узел дерева

n:=tns.AddChildObject(nil,kl1.st+kl2.st,self);
kl1.n.Parent:=n;
kl2.n.Parent:=n;

← →
X_Tra (2005-03-15 20:16) [1]

Можно попробовать создать родительский узел сначала как Sibling, а потом сделать для первых двух узлов TTreeNode.MoveTo(...)

← →
Oleg_ (2005-03-15 23:37) [2]

Спасибо, завтра попробую

Обратное построение древа Найти похожие ветки