在创建树的时候
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;