@ Abli:
IMHO tut der Code das Rekord nicht kopieren oder verschieben.
Das Caption des Nodes wird dort mithilfe soSaveCaptions übernommen:
Delphi-Quellcode:
procedure TMainForm.Tree1NewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; Text: WideString);
var
Data: PNodeData;
// Tree1 as well as Tree2 use the soSaveCaptions StringOption which enables automatic caption store action
// when tree data is serialized into memory (e.g. for drag'n drop). Restoring the caption is done by triggering
// this event for each loaded node.
// This mechanism frees us from implementing a SaveNode and LoadNode event since we have only the caption to store.
begin
Data := Sender.GetNodeData(Node);
Data.Caption := Text;
end;
Ich hab zum Test einen HintText für jedes Node implementiert der im Rekord gespeichert wird.
Der HintText wird mit dem Code der obigen
Unit nicht übernommen.
Jemand eine Idee wie ich das Rekord mit verschieben kann?
MfG