TMyNodeInfo=Class
private
FCaption:String;
FDate:TDate;
FOther:integer;
Public
published
property Caption :String Read FCaption Write FCaption;
property Date :TDate Read FDate Write FDate;
end;
var
TempNode:TTreeNode;
MyNodeInfo:TmyNodeInfo;
begin
MyNodeInfo:=TMyNodeInfo.Create;
MyNodeInfo.Caption:='abcd';
MyNodeInfo.Date=Now();
TempNode:=Treeview1.items.addChild(nil,MyNodeInfo.Caption);
TempNode.Date:=MyNodeINfo;
1,i don't know too
2,add a type
type=ptree
id:integer;
text:string;
end;
在批定了这个类型的数据后就可以了,用ptree.addchildobject(......);
3,按以上方法后面的就可很容晚实现了,
比如p:=tree1.selected.data;