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