TcxTreeListt 动态增加列

var
 vColumn:TcxTreeListColumn;
begin
 vColumn:=cxTreeList1.CreateColumn(nil);
 vColumn.DataBinding.ValueTypeClass:=TcxCurrencyValueType;
 vColumn.PropertiesClass:=TcxCurrencyEditProperties;
 (vColumn.Properties as TcxCurrencyEditProperties).Alignment.Horz:=taLeftJustify;

 

 

ar
i,j: integer;
Item: TcxTreeListnode;
begin
 {acx :TcxTreeLis;}
 for i := 0 to 2 do
   acx.CreateColumn(acx.Bands[0]);
 for i := 0 to 2 do
 begin
   if i = 0 then
   begin
     acx.Columns[i].Caption.Text := '预算科目';
     acx.Columns[i].Caption.AlignHorz := taCenter;
     acx.Columns[i].Options.Editing := false;
     TcxTreelistColumn(acx.Columns[i]).PropertiesClassName := 'TcxLabelProperties';
     acx.Columns[i].Width := 200;
   end;
   if i = 1 then
   begin
     acx.Columns[i].Caption.Text := '预算金额';
     acx.Columns[i].Caption.AlignHorz := taCenter;
     acx.Columns[i].Options.Editing := true;
     TcxTreelistColumn(acx.Columns[i]).PropertiesClassName := 'TcxCurrencyEditProperties';
     acx.Columns[i].DataBinding.ValueType := 'Currency';
[red]{此句无效(acx.Columns[i].Properties as TcxCurrencyEditProperties).Alignment.Horz:=taLeftJustify }[/red]
     acx.Columns[i].Width := 120;
     TcxTreelistColumn(acx.Columns[i]).IsRight;
     TcxTreelistColumn(acx.Columns[i]).SummaryFooter.Format := '#,##0.00';
     TcxTreelistColumn(acx.Columns[i]).SummaryFooter.Kind := sksum;
     acx.Columns[i].SummaryFooter.AlignHorz := taRightJustify;

   end;
   if i = 2 then
   begin
     acx.Columns[i].Caption.Text := '摘要';
     acx.Columns[i].Caption.AlignHorz := taCenter;
     acx.Columns[i].Options.Editing := true;
     TcxTreelistColumn(acx.Columns[i]).PropertiesClassName := 'TcxLabelProperties';
     acx.Columns[i].Width := 200;
   end;

 end;
end;