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;

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