Question

delphi在treeview每个节点增加一个不同的图标。

例如：专家组和专家。其中专家组是后面显示一个图标 专家显示一个图标如图：怎么弄？
专家组a 专家组B都显示一个群组的图标专家a显示一个个人的图标。

Answer 1

用一个ImageList，将所有的图标一开始都加载到ImageList中
然后设置treeview的ImageList属性
最后在程序中设置各结点的ImageIndex
比如：treeview1.Items[1].ImageIndex := 1;
treeview1.Items[2].ImageIndex := 2;

追问

procedure TMainForm.TreeView1GetImageIndex(Sender: TObject;
Node: TTreeNode);
begin
if Node.Expanded then
Node.ImageIndex := 0
else
Node.ImageIndex := 1;
end;//我代码是这样的 为什么每次点节点图标就会变呢？

追答

设置node.SelectedIndex属性，这个是当结点被选中时应该显示什么样的图标

Answer 2

刚好我做的一个项目也用到TreeView. 具体操作如下:
1. 增加一个 TImageList 对象 il1; 并添加各个node类型的图标;
2. TreeView.ImageList := il1;
3. 增加Node时设置 imageindex, 比如:
node := tv1.nodes.add("专家组A");
node.ImageIndex := 0;
node := tv1.nodes.addChild(node, "专家a");
node.ImageIndex := 1;

追问

主要是每个节点都是活的。比如我增加一个节点。这个节点再自动显示图标怎么弄？

Answer 3

还有个 selected index的，选中之后就会变成这个图标了。。
你可以在 TreeView1Addition事件里判断node的level，根据level来设定他的imageindex和selectedindex

追问

怎么写。。。谢谢新手真不会

追答

procedure TForm1.TreeView1Addition(Sender: TObject; Node: TTreeNode);
begin
case node.Level of
1 : Node.ImageIndex := 1;
2 : Node.ImageIndex := 2;
end;
Node.SelectedIndex := 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Items.AddChild(TreeView1.Selected,'新节点');
end;

TreeView1Addition事件可以双击 treeview1的 events插页下 的东西自动变出来
如图

Answer 4

在画的事件里面写代码就是了