高分求100，在线等，TreeView 的图表设置问题！

在TreeView中，我想实现的功能是当某一节点展开后该节点图标也随之变换，当该节点收拢时又恢复原来的图标！谢谢，问题解决马上给分！！在线等！ 问题点数：100、回复次数：6Top

1 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2004-09-02 23:47:47 得分 14

OnChange中处理了  
  有属性可以改变ImageIndex的Top

2 楼jiang5460（巴山夜雨）回复于 2004-09-02 23:59:31 得分 15

呵呵，多给点分，谢谢  
  添加一个Imagelist1  
  在treeView1中的Images选择Imagelist1  
   
  双击treeView1在Imageindex中添加你需要的图片的索引数字，  
  这样就可以了  
  Top

3 楼BigAngell（学而不思则罔 思而不学则殆）回复于 2004-09-03 00:12:24 得分 15

在OnChange或OnClick事件中都可以做到Top

4 楼linzhengqun（风。我回来了）回复于 2004-09-03 00:20:21 得分 25

//该事件当某结点被展开时发生，Node即是那个结点  
  procedure   TForm1.TreeView1Expanded(Sender:   TObject;   Node:   TTreeNode);  
  begin  
            node.ImageIndex:=7;  
            node.SelectedIndex:=7;  
  end;  
  //该事件当某结点被收拢时发生，Node即是那个结点  
  procedure   TForm1.TreeView1Collapsed(Sender:   TObject;   Node:   TTreeNode);  
  begin  
        node.ImageIndex:=6;  
        node.SelectedIndex:=6;  
  end;Top

5 楼yjs_lh（长风浪子）回复于 2004-09-03 00:39:04 得分 30

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   ImgList,   ComCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          TreeView1:   TTreeView;  
          ImageList1:   TImageList;  
          procedure   TreeView1GetImageIndex(Sender:   TObject;   Node:   TTreeNode);  
          procedure   TreeView1GetSelectedIndex(Sender:   TObject;   Node:   TTreeNode);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.TreeView1GetImageIndex(Sender:   TObject;   Node:   TTreeNode);  
  begin  
      if   Node.Expanded   then  
          Node.ImageIndex   :=   0  
      else  
              Node.ImageIndex   :=   1;  
   
   
  end;  
   
  procedure   TForm1.TreeView1GetSelectedIndex(Sender:   TObject;  
      Node:   TTreeNode);  
  begin  
      Node.SelectedIndex   :=   Node.ImageIndex;  
  end;  
   
  end.  
   
   
  注意自己在ImageList中加两个图标，把TreeView1的imagelist设为imagelist1Top

6 楼Jeff20040819（美丽）回复于 2004-09-03 12:33:55 得分 1

帮顶，学习，接分Top

相关问题

• 节点
• treeview
• ttreenode
• 当某
• imageindex
• node
• imagelist
• tform
• tobject
• 事件

• 帖主：Kshape
• ly_liuyang
• jiang5460
• BigAngell
• linzhengqun
• yjs_lh
• Jeff20040819

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载