Динамическое создание TreeView

← →
Vitus (2003-02-03 18:01) [0]

Подскажите, почему данный код не работает:

procedure TfmMain.ToolButton4Click(Sender: TObject); var Tree: TTreeView; begin Tree := TTreeView.Create(Self); Tree.Items.Add(nil, "New"); //Control "" has no parent window. end;

← →
Darkwin © (2003-02-03 18:08) [1]

procedure TForm1.Button1Click(Sender: TObject); var Tree: TTreeView; begin Tree := TTreeView.Create(Self); Tree.Parent:=Self; Tree.Items.Add(nil, "New"); end;

← →
Vitus (2003-02-03 18:14) [2]

Теперь друг баг - падает на Access violation...

procedure TfmMain.ToolButton4Click(Sender: TObject); var Tree: TTreeView; begin if (Tree1.Selected <> nil) and (Tree2.Selected <> nil) then try Tree := TTreeView.Create(Self); Tree.Parent := Self; Tree.Items := Tree1.Items; Tree.Selected.MoveTo(Tree2.Selected, naAddChild); finally Tree.Free; end end;

В чем проблема?

← →
Serghei (2003-02-03 18:16) [3]

Tree.Items := Tree1.Items; ?- Assign не пробовал?

← →
Vitus (2003-02-03 18:21) [4]

Assign копирует только один элемент без потомков... если я не ошибаюсь, поэтому делаю через MoveTo.
Вообще цель скопировать узел одного дерева со всеми потомками в выбранный узел другого дерева. Если есть способы сделать это иначе, подскажите пожалуйста...

← →
Vitus (2003-02-03 18:28) [5]

Народ! Подскажите в чем заморочка...

в этом

> Tree.Selected.MoveTo(Tree2.Selected, naAddChild);

ты пытаешься перенести узел из одного дерева в другое, а так низя...

← →
Vitus (2003-02-03 19:44) [7]

Как же быть? Как мне скопировать ветвь одного дерева в выбранный элемент 2-го?

Динамическое создание TreeView Найти похожие ветки