delphi 中子类化 TTreeNode 的问题

我正在编写一个 delphi 2009 应用程序，它在对接面板上使用 TTreeView。

我发现如果我对 TTreeNode 进行子类化，我可以在我的应用程序中进行很大的简化。它所在的树视图放置在对接面板上。

TInfoTreeNode=class(TTreeNode)
private
  // remember some stuff
public
end;

procedure TfraInfoTree.tvInfoCreateNodeClass(Sender: TCustomTreeView;
  var NodeClass: TTreeNodeClass);
begin
  NodeClass:=TInfoTreeNode;
end;

我想我已经碰壁了......每个“TInfoTreeNode”实例都需要记住有关其自身的事情。由于当包含 TTreeView 自动隐藏的面板时句柄被释放，因此类被销毁。

这是一个问题，因为班级所知道的一切都会被遗忘。

有没有办法解决这个问题（除了再次从数据库重新加载每个 TInfoTreeNode 之外）？

谢谢你！

IIRC，Tag罢工>Data每个 TTreeNode 实例上的属性通过句柄重建得以保留。

您可以将其用作包含带有附加信息的对象的列表的索引，或者使用类型转换来存储对象引用并直接访问对象。