Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.10;
Скачать: CL | DM;

Вниз

TTreeNode скопировать   Найти похожие ветки 

 
Wowa1   (2008-07-08 21:22) [0]

хочу сделать реальную копию одного TTreeNode, а не ссылку.

var
 NodeTmp: TTreeNode;

procedure p1;
begin
 NodeTmp := TreeView.Selected;
 TreeView.Items.Delete(TreeView.Selected);
end;


Хочу что бы после удаления из TreeView, данные оставались в NodeTmp. Что надо сделать?


 
Johnmen ©   (2008-07-08 21:33) [1]

Создать NodeTmp.


 
Wowa1   (2008-07-08 21:39) [2]

А где и как это делать надо?

var
NodeTmp: TTreeNode;

procedure p1;
begin
NodeTmp := TTreeNode.Create(nil);
NodeTmp := TreeView.Selected;
TreeView.Items.Delete(TreeView.Selected);
end;


Так не получается.


 
JanMihail   (2008-07-08 21:41) [3]

NodeTmp := TTreeNode.Create(TreeView.Items);


 
Wowa1   (2008-07-08 21:43) [4]

Так тоже не получается. После удаления из TreeView в NodeTmp данные пропадают.


 
JanMihail   (2008-07-08 21:47) [5]

Зачем Вам весь объект. Сохраните нужные данные из него да и все


 
JanMihail   (2008-07-08 21:53) [6]

Попробуйте в другой TTreeView сохранять


 
Игорь Шевченко ©   (2008-07-08 21:58) [7]

скопировать в tmpnode надо. У TTreeNode есть замечательный метод Assign


 
Wowa1   (2008-07-08 22:18) [8]


> скопировать в tmpnode надо. У TTreeNode есть замечательный
> метод Assign

Спасибо, это помогло. А при этом .Data из источника не скопируется в новый экземпляр NodeTmp?
Как перенести .Data?


 
Ega23 ©   (2008-07-08 22:30) [9]


> Как перенести .Data?

Data - это указатель. Куда и на что он у тебя указывает - это твоё дело.
Копируется оператором присваивания: tmpnode.Data := TreeView.Selected.Data


 
MsGuns ©   (2008-07-08 22:47) [10]

А зачем удалять, может просто сделать узел невидимым ?



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

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

Наверх




Память: 0.48 MB
Время: 0.016 c
9-1172434704
Mr.Vlad
2007-02-25 23:18
2008.08.10
Изображение с прозрачным фоном


2-1214996937
JanMihail
2008-07-02 15:08
2008.08.10
Количество элементов в множестве


2-1215460486
Olegus
2008-07-07 23:54
2008.08.10
Dll в Delphi


15-1214360615
Slider007
2008-06-25 06:23
2008.08.10
С днем рождения ! 25 июня 2008 среда


15-1214535783
Slider007
2008-06-27 07:03
2008.08.10
С днем рождения ! 27 июня 2008 пятница