delphi - 基于TreeView创建自己的组件(TTreeNode问题)

Question

只需使用以下命令访问我的自定义 TreeView:

MyTreeView1.Selected.MyOwnProperty := 'something';

所以，我想做的就是制作与 TreeView 相同的组件，但是我需要将我自己的属性添加到 TreeView 的所有 TreeNodes 中。

如果我再问一次，有人可以解释一下如何使用“TTreeNodes 的数据属性来指向对象”吗？有人可以解释如何向其中保存一些信息(例如姓名和年龄)以及如何从选定的 TTreeNode 获取此信息吗？

Answer 1

至少在 XE 中，您可以使用 OnCreateNodeClass 覆盖 TTreeView 树节点的创建。属性来创建自定义 TTreeNode。

例如:

type
  TMyTreeNode = class (TTreeNode)
  //
  end;

procedure TMyForm.OnCreate(Sender: TObject);
begin
  MyTreeView.OnCreateNodeClass := OnCreateNodeClass;
end;

procedure TMyForm.OnCreateNodeClass(Sender: TCustomTreeView; 
  var NodeClass: TTreeNodeClass);
begin
  NodeClass := TMyTreeNode;
end;

然后，您可以子类化 TTreeView 来更改 Selected 以返回您的树节点类。