AddChild or AddChildObject例子:
procedure SetTvData;
var
n1,n2,n3,n4:tTreeNode;
begin
tv.items.clear;
with tv.items do
begin
n1:=add(nil,'NO.1');
n2:=addChild(n1,'No.1.1')
n3:=addChild(n2,'No.1.1.1');
N4:=addChild(n3,'No.1.1.1.1');end;
end;
procedure SetTvData;
var
n1,n2,n3,n4:tTreeNode;
begin
tv.items.clear;
with tv.items do
begin
n1:=add(nil,'NO.1');
n2:=addChild(n1,'No.1.1')
n3:=addChild(n2,'No.1.1.1');
N4:=addChild(n3,'No.1.1.1.1');end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货