想为TTreeview添加自定义属性,,我试了用TButton,,我新建了一个类,下面是内容:
type
mybutton = class(TButton)
private
newpro: string;
end;这样我可以用newpro来读取或保存内容;///////////////现在我想用TTreeview添加自定义属性,,是想把自定义属性加在treeview的itmes下的item中的,,,请问这样应该怎么加啊??
type
mybutton = class(TButton)
private
newpro: string;
end;这样我可以用newpro来读取或保存内容;///////////////现在我想用TTreeview添加自定义属性,,是想把自定义属性加在treeview的itmes下的item中的,,,请问这样应该怎么加啊??
如果只是要达到这样的效果,可以考虑使用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;
我的明白了