关于TreeView的问题

Question

procedure TMainForm.TreeView_ItemGetImageIndex(Sender: TObject;
  Node: TTreeNode);
begin
  if Node.HasChildren then
  begin
    if Node.Expanded then
      Node.ImageIndex := 1
    else
      Node.ImageIndex := 0;
  end else
  begin
    Node.ImageIndex := 2;
  end;
  Node.StateIndex := Node.ImageIndex;
end;procedure TMainForm.TreeView_ItemGetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
begin
 Node.SelectedIndex := Node.ImageIndex ;
end;我在运行的时候图象重叠，不知道在哪里可以修改？？？

Answer 1

如果象你猜想的 就在每次修改完节点的IMAGEINDEX后update一下