var B : TTreeNode; begin B := TreeView1.Items.AddFirst(nil,'First'); TreeView1.Items.AddChild(B,'Child'); end;
var a,b,c,d: TTreenode; begin a:=treeview1.Items.Add(nil,'aaa'); b := treeview1.Items.AddChild(a,'bbb'); c := Treeview1.Items.AddChild(b,'ccc'); d := Treeview1.Items.AddChild(c,'ddd'); Treeview1.Items.AddChild(d,'eee'); end;
B : TTreeNode;
begin
B := TreeView1.Items.AddFirst(nil,'First');
TreeView1.Items.AddChild(B,'Child');
end;
a,b,c,d: TTreenode;
begin
a:=treeview1.Items.Add(nil,'aaa');
b := treeview1.Items.AddChild(a,'bbb');
c := Treeview1.Items.AddChild(b,'ccc');
d := Treeview1.Items.AddChild(c,'ddd');
Treeview1.Items.AddChild(d,'eee');
end;