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;

     這樣就可以實現，把列移動啦。