如何给delphi中的treeview节点加图标

如何给delphi中的treeview节点加图标？

刚好我做的一个项目也用到TreeView. 具体操作如下:

1. 增加一个 TImageList 对象 il1 并添加各个node类型的图标

2. TreeView.ImageList := il1

3. 增加Node时设置 imageindex, 比如:node := tv1.nodes.add("专家组A")node.ImageIndex := 0node := tv1.nodes.addChild(node, "专家a")node.ImageIndex := 1