cxDBTreeList：最简单的节点图标添加方法

先在窗体上放ImageList关联到cxDBTreeList，在cxDBTreeList的GetNodeImageIndex事件中写如下：

 

 

procedure cxDBTreeList1GetNodeImageIndex(Sender:

                 TcxCustomTreeList; ANode: TcxTreeListNode; AIndexType:

                 TcxTreeListImageIndexType; var AIndex: TImageIndex);

var

  i :Integer;

begin

  //给树结点加上图标

  for i := 0 to ANode.ValueCount do

    begin

      if ANode.Level = 0 then

        begin

          ANode.ImageIndex := 0;

        end

      else

      if ANode.Level = 1 then

        begin

          ANode.ImageIndex := 2;

        end

      else

      if ANode.Level = 2 then

        begin

          ANode.ImageIndex := 1;

        end;

    end;

end;