Delphi，VirtualStringTree - 类（对象）而不是记录

我需要使用类而不是 VirtualStringTree 节点的记录。

我应该像这样声明它标准（但在这种情况下 - 棘手）：

PNode = ^TNode;
TNode = record
 obj: TMyObject;
end;
//..
var
 fNd: PNode;
begin
fNd:= vstTree.getNodeData(vstTree.AddChild(nil));
fNd.obj:= TMyObject.Create; 
//..

或者我应该直接使用TMyObject？如果是这样-怎么办？ 分配（构造）对象并释放它怎么样？

提前致谢 米。

1. 设置容纳对象的数据大小

   vstTree.NodeDataSize := SizeOf(TMyObject); 
   

2. 获取数据大小持有者并绑定到您的对象

   vstTree.getNodeData(passed in interested node)^ := your object
   

   or

   vstTree.getNodeData(vstTree.AddChild(nil))^ := TMyObject.Create;
   

   or
   使用 vstTree.InsertNode 方法

3. 要释放绑定对象连接 OnFreeNode 事件

   vstTree.OnFreeNode := FreeNodeMethod;
   

   with

   procedure TFoo.FreeNodeMethod(Sender: TBaseVirtualTree; Node: PVirtualNode);
   var
     P: ^TMyObject;
   begin
     P := Sender.getNodeData(Node);
     if P <> nil then
     begin
         P^.Free;
         P^ := nil; //for your safety or you can omit this line
     end;
   end;