| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Динамическое создание TreeView [D5, Win2k]

Vitus ©   (2003-02-03 18:01:00) 

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

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

---

Vitus   (2003-02-03 19:44:00) [1]

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

---

Darkwin   (2003-02-03 19:20:00) [2]

в этом

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

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

---

Vitus   (2003-02-03 18:28:00) [3]

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

---

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

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

---

Serghei   (2003-02-03 18:16:00) [5]

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

---

Vitus   (2003-02-03 18:14:00) [6]

Теперь друг баг - падает на 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;

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

---

Darkwin   (2003-02-03 18:08:00) [7]

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


---

Наверх