delphi 请问怎么动态的在树中增加节点，用TreeView或者ListVie

NewNode:TTreeNodebegin

with

Treeview1.items

do

begin

NewNode:=Add(nil,'Root1')

//增加第一个根结点

AddChild(NewNode,'Child01')

//在根结点下增加子结点

AddChile(NewNode,.........

.............

//在该根结点下继续增加子结点

NewNode:=Add(nil,'Root2')

//增加第二个根结点

..........

endend

2、其次你要讲清楚在设计模式下还是在运行模式下

以Delphi 7以前的版本 为例

TreeView本身不能有图标，但是他有TreeView.Images属性，因此我们可以利用TImageList控件来设置TTreeView的节点图标

...

//设置图标来源

TreeView1.Images=ImageList1

...

//设置节点图标在ImageList1中的对应序号

TreeView1.Items[0].ImageIndex:=0

..