Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.015 c
2-1215450480
Pasha L
2008-07-07 21:08
2008.08.10
ScrollBar.Position:=n без вызова OnChange


15-1214055444
TUser
2008-06-21 17:37
2008.08.10
Просьба к счастливым обладателям Delphi


15-1214220098
int64
2008-06-23 15:21
2008.08.10
Нет притока программистов в Delphi?


11-1190461365
Robt
2007-09-22 15:42
2008.08.10
ScrollBar ошибка !!!!


15-1214489688
de.
2008-06-26 18:14
2008.08.10
MS SQL 2000




   Наверх