终于解决了TTreeView中Node更换图片的问题（Delphi）

Delphi的环境真的是有些难用。
TTreeView控件显示节点图片的时候，各种情况处理的方法不一致，如果点击节点，其有下级节点的时候，很好处理，就只需要在其OnExpended事件和OnCollapsed事件中，判断当前Node的ImageIndex然后进行更改处理就OK了，但是有一点，在加载树型菜单的时候，一定要给每个节点设置初始的节点图片，如：
    Node.ImageIndex := 1;
    Node.SelectedIndex := 1;
然后在OnExpended事件和OnCollapsed事件中进行处理，如：
  //设置节点图标状态
  if Node.ImageIndex = 1 then
  begin
    Node.ImageIndex := 0;
    Node.SelectedIndex := 0;
  end;
在此自己随意判断处理就OK了。

但是如果TTreeView控件没有展开节点，当然也就没有收缩了，每个节点都是根节点。那么以上两个事件就不起作用了。就只能是在OnClick事件中进行图片的更换问题，可是在Click事件中写好代码之后，问题又出现了，在点击节点时，第一次不会改变图片，当第二次点击的时候，才会改变状态，好像每个节点要激活一样。
想了想，可能是因为节点还不知道另一种图片的状态，然后就在树型菜单加载的时候，把所有的图片都给节点设置了一次，最后设置成初始图片，误打误撞的，问题就这样解决了，害得我调了半天！！！
我在加载树型菜单时这样写：
        //设置树型菜单目录图标
        ATreeNode.ImageIndex := 1;
        ATreeNode.SelectedIndex := 1;
        ATreeNode.ImageIndex := 0;
        ATreeNode.SelectedIndex := 0;
总之，把节点有的状态都加载了一遍，最后设置成初始状态。
在Click事件中这样写：
    CurTreeNode := tvTest.Selected;    
    if CurTreeNode <> OldTreeNode then//判断当前节点是否是前一节点
    begin
      OldTreeNode.ImageIndex := 0;
      OldTreeNode.SelectedIndex := 0; //设置前一选中节点图片  

      CurTreeNode.ImageIndex := 1;
      CurTreeNode.SelectedIndex := 1; //设置当前选中节点图片

      OldTreeNode := CurTreeNode;//将当前节点设置成前一节点
    end;
这样点击就正常了。