Treeview图标问题

[hqskoala]

不同的节点用不同的图标（叶子节点ImageIndex=1其他节点ImageIndex=0），为什么选中一个叶子节点时图标会变成ImageList的下标为0的图标，未被选中时又变回来，所有的叶子节点都是？

[TOMWLD]

是有这个问题，要用代码控制一下了

[zsr]

未指定Node的SelectedIndex.

[Drate]

在OnGetImageIndex中写：

procedure TBOMListForm.BOMTreeViewGetImageIndex(Sender: TObject;
Node: TTreeNode);
begin
if Node.HasChildren then
if Node.Expanded then
Node.ImageIndex := 27
else
Node.ImageIndex := 28
else
Node.ImageIndex := 26;
end;

在OnGetImageIndex中写：

procedure TBOMListForm.BOMTreeViewGetSelectedIndex(Sender: TObject;
Node: TTreeNode);
begin
Node.SelectedIndex := Node.ImageIndex;
end;