我写了一个TreeNode类，并且用add方法成功的加了进去，但我想在SELECTED的时候返回继承的类的新增的属性，应如何做？？？？？

Question

这样可以吗？
TTreeNode_Module(TreeView1.selected).自定义属性
或者
(TreeView1.selected as TTreeNode_Module).自定义属性

Answer 1

先谢谢kevin_gao兄台：马上加分！！！！另：
如果在add之前给treenode_module的属性赋值为何报错？
  public
    { Public declarations }
  end;
var
  Frm_main: TFrm_main;
  FTreeNode_Module: TTreeNode_Module;implementation
.
.
.
procedure TFrm_main.ToolButton2Click(Sender: TObject);
begin  
  with TreeView_Moduls.Items do
  begin
    Clear; { remove any existing nodes }
    MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node }
    { Add a child node to the node just added }
    FTreeNode_Module.ModuleID := 5;  //报错，如果不用，则可以顺利的加进去
    FTreeNode_Module.ModuleRight:=4; //报错
    FTreeNode_Module.NoteID := 123;  //报错
    AddChild(FTreeNode_Module, 'ChildNode1');2。用TreeNode.Data是否可以代替我的这种做法，如何使用？？？？望各位大侠多多指教！！！！！！谢过...

Answer 2

FTreeNode_Module没有create
一般是自定义一个类来存储与TreeNode相关的数据，在该类实例的指针赋给data