Цитата(halfhope @ 15.8.2012, 12:51  ) | | выложу сорцы. |
Слишком много смотреть. Куча лишнего, не относящегося к задаче.
Показываю свой пример, в котором всё дублируется так, как нужно. Правда, на VirtualStringTree, но сути дела не меняет - все задействованные методы VT относятся к BaseVirtualTree.
| Код |
type
TUser = record
UserName: string;
end;
PUser = ^TUser;
=================================
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
Node: PVirtualNode;
us: PUser;
begin
// наполняем VT десятью юзерами
for i := 0 to 9 do
begin
New(us);
us.UserName := 'User' + IntToStr(i);
vt1.InsertNode(nil, amAddChildLast, us);
end;
end;
procedure TForm1.vt1GetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
begin
NodeDataSize := SizeOf(PUser);
end;
procedure TForm1.vt1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: string);
var
us: PUser;
begin
us := PUser(Sender.GetNodeData(Node)^);
CellText := us.UserName;
end;
// по даблклику на любом ноде создаем ему дитё, и в NodeData дитя заносим ссылку на того же юзверя.
procedure TForm1.vt1DblClick(Sender: TObject);
var
us: PUser;
begin
if vt1.GetFirstSelected = nil then
Exit;
us := PUser(vt1.GetNodeData(vt1.GetFirstSelected)^);
vt1.InsertNode(vt1.GetFirstSelected, amAddChildLast, us);
// замечание: если бы record-ы пользователей дублировались, то
// значение UserName менялось бы только у одного - находящегося в фокусе.
// а так как NodeData указывает на одного и того же user-а, то
// и значение UserName меняется у всех (вернее, у одного и того же,
// просто он отображается несколько раз'
us.UserName := 'ChangedUser. ChildNodeCount = ' + IntToStr(vt1.GetFirstSelected.ChildCount);
vt1.Invalidate;
// если так поклацать по VT, насоздавать "детей", и "детей детей", и "детей детей детей", а потом опять "детей детей" и так далее, то становится всё очевиднее,
// что юзер-то один, а отображений его много
end;
|
|
