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

Question

只需要访问我的自定义TreeView:

MyTreeView1.Selected.MyOwnProperty := 'something';

所以,我想做的就是和TreeView一样制作相同的组件但是+我需要将自己的属性添加到TreeView的所有TreeNodes中.

如果我再问一遍,有人可以解释一下如何使用"TTreeNodes的数据属性指向一个对象"吗？有人可以解释如何保存一些信息(例如名称和年龄)以及如何从选定的TTreeNode获取此信息？

Answer 1

至少使用XE,您可以使用OnCreateNodeClass属性覆盖使用TTreeView创建树节点以创建自定义TTreeNodes.

例如:

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以返回树节点类.