解决TcxTreeList使用的几个问题

1、节点遍历

Items是按树型结构存放的，单纯遍历Items，只能得到第一层的节点，网上很多例子，都是用递归处理，其实是不必的，TcxTreeList包含了一个AbsoluteItems，保存了顺序结构的节点，可以如下遍历：

for i := 0 to ATreeList.AbsoluteCount - 1 do

showmessage(ATreeList.AbsoluteItems[i].Texts[0]);

2、为节点增加CheckBox

ATreeList.OptionsView.CheckGroups := True; //使CheckBox有效

设置了该属性后，节点不会发生任何变化，可以使用遍历设置属性，例如：

for i := 0 to ATreeList.AbsoluteCount - 1 do

ATreeList.AbsoluteItems[i].CheckGroupType := ncgCheckGroup; //多选或单选

这样处理的话，每次加载节点之后都需要执行这项操作，比较麻烦，可以直接修改源代码cxTL.pas，实现自动切换，修改如下：

为TcxCustomTreeList增加属性：

private

FCheckGroupType:TcxTreeListNodeCheckGroupType;

public

property CheckGroupType: TcxTreeListNodeCheckGroupType read FCheckGroupType write SetCheckGroupType; default ncgNone;

//修改创建方法

constructor TcxCustomTreeList.Create(AOwner: TComponent);

begin

...原代码...

FCheckGroupType := ncgNone;

end;

//设置CheckGroupType时，修改节点状态

procedure TcxCustomTreeList.SetCheckGroupType(

const Value: TcxTreeListNodeCheckGroupType);

var

i: Integer;

begin

if FCheckGroupType <> Value then begin

FCheckGroupType := Value;

BeginUpdate;

try

FRoot.CheckGroupType := Value;

for i := 0 to AbsoluteCount - 1 do

AbsoluteItems[i].CheckGroupType := Value;

finally

EndUpdate;

end;

end;

end;

修改节点创建事件：

constructor TcxTreeListNode.Create(AOwner: TcxCustomTreeList);

begin

...原代码...

//创建时设默认属性，忽略OptionsView.CheckGroups的值，无影响

if (AOwner <> nil) then

CheckGroupType := AOwner.CheckGroupType;

end;

3、遍历选中的节点

for i := 0 to AbsoluteCount - 1 do

if AbsoluteItems[i].Checked then showmessage(AbsoluteItems[i].Texts[0]);

4、几个属性

TopNode：顶节点，实际上是第一个有效的节点

Root：第一层节点数组

Items：节点的子节点数组（如果是TreeList.Items相当于Root）

Texts,Values：值数组，对应Bands的Index