cxDBTreeList最简单的节点添加方法

 

 1  procedure  cxDBTreeList1GetNodeImageIndex(Sender:TcxCustomTreeList; ANode: TcxTreeListNode; AIndexType:
 2 
 3                 TcxTreeListImageIndexType;  var  AIndex: TImageIndex);
 4  var
 5    i :Integer;
 6  begin
 7     // 给树结点加上图标
 8     for  i : =   0   to  ANode.ValueCount  do
 9       begin
10         if  ANode.Level  =   0   then
11           begin
12            ANode.ImageIndex : =   0 ;
13           end
14         else
15         if  ANode.Level  =   1   then
16           begin
17            ANode.ImageIndex : =   2 ;
18           end
19         else
20         if  ANode.Level  =   2   then
21           begin
22            ANode.ImageIndex : =   1 ;
23           end ;
24       end ;
25  end ;
26 

 

 

 

 

 

转载于:https://www.cnblogs.com/EIRC/archive/2010/01/21/1653547.html