为TTreeview添加自定义属性

Question

想为TTreeview添加自定义属性,,我试了用TButton,,我新建了一个类,下面是内容:
type
  mybutton = class(TButton)
   
  private
   newpro: string;
end;这样我可以用newpro来读取或保存内容;///////////////现在我想用TTreeview添加自定义属性,,是想把自定义属性加在treeview的itmes下的item中的,,,请问这样应该怎么加啊??

Answer 1

这个比较麻烦,需要重写TTreeView, TTreeNodes, TTreeNode类,
如果只是要达到这样的效果,可以考虑使用Items[i].Data这个属性首先定义一个
   TMyData = record
     Key: string;
     Code: string;
     Name: string;
   end;
   
   PMyData = ^TMyData;在创建树的时候
var
  t: TreeNode;
  p: PMyData;
begin
   t := treeView1.AddChild(nil,'Test');
   new(p);
   p.Key := '1';
   p.Code := 'mm';
   p.Name := 'hello';
   t.Data := p;
end在访问树的时候可以这样
var
  Key,Code,Name: string;
begin
  Key := PMyData(treeView1.items[0].Data).Key;
  Code := PMyData(treeView1.items[0].Data).Code;
  Name := PMyData(treeView1.items[0].Data).Name; 
end;

Answer 2

感谢楼上# sexalpha
我的明白了