代码该错！大虾帮忙！

Question

procedure TForm1.TreeRoleLimit_CMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 var
      I : Integer;
begin    for I := 0 to TreeRoleLimit_C.Items.Count - 1 do
      begin
            if TreeRoleLimit_C.Items[I].Selected = true then
                  begin                                TreeRoleLimit_C.Items[I].ImageIndex :=1 ;
                  end ;      end;end;不知道怎么目录树中被点中的目录的图标没有改，但点其他的上一个就改了，是不是少了个类似刷新的，给点代码吧！

Answer 1

我也遇到这情况了，是不是Delphi的Bug呢？我到现在还不知道怎么办！帮你Up啦！

Answer 2

其实没有必要使用这段代码
可以在创建节点的时候通过设置它的Selectedindex来设置图标
如果非要想你那样设置的话好象也是应该在onchange事件中设置。效率很底

Answer 3

在TreeView 的OnClick 事件中设置  TreeView1.Selected.ImageIndex := 1;