Текущий архив: 2003.02.13;
Скачать: CL | DM;

Вниз

Динамическое создание 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]

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

---

← →
Darkwin ©   (2003-02-03 19:20) [6]

в этом

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

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

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c