Delphi TcxTreeList 总结

Delphi TcxTreeList添加树节点，Node: TcxTreeListNode;这个是它的节点的类型，和TreeView的节点类似。

（1）添加节点 vNode: TcxTreeListNode

vNode:= TreeList.Add;

（2）添加图标

vNode.StateIndex := cst_ChildImageOK;// cst_ChildImageOK是图标在TImageList的位置。

(3) 赋值

vNode.Values[colR_111.ItemIndex] := FADO.FieldByName('111').AsString; //这个是节点的赋值语句，colR_111是表格的手动增加的列的名称，.ItemIndex是列在表格中的位置。Values是一个数组，这样就可以找到相应的值。

（4）动态创建列

    vColumn := TreeList.CreateColumn();
    vColumn.Caption.Text := FItems[I].cName;
    vColumn.Caption.AlignHorz := taCenter;
    vColumn.Tag := 1;
    vColumn.Name := 'colR_' + FItems[I].cCode;
    vColumn.DataBinding.ValueType := 'Currency';
    vColumn.PropertiesClassName := 'TcxCurrencyEditProperties';
    TcxCurrencyEditProperties(vColumn.Properties).DecimalPlaces := 2;
    TcxCurrencyEditProperties(vColumn.Properties).DisplayFormat := '0.00';
    TcxCurrencyEditProperties(vColumn.Properties).Alignment.Horz := taRightJustify;
    vColumn.Options.Editing := True;
//    vColumn.Options.Footer := True; //这下面的注释行是代表创建合计列。
//    vColumn.SummaryFooter.AlignHorz := taRightJustify;
//    vColumn.SummaryFooter.Format := '0.00';
//    vColumn.SummaryFooter.Kind := skSum;

（5）移动列

因为需要动态创建列，把一些需要合计的列放在在后面的办法，

     //移动列
       procedure TFormCost_ProductCostDutchCalculate.MoveColumn;
       var
         I: Integer;
       begin
          colR_NCS.Position.ColIndex := 1;
       end;

这样就可以实现，把列移动啦。