cxGrid动态创建冻结列

var

 AView: TcxCustomGridView;

begin

 AView := <cxGrid>.CreateView(TcxGridDBBandedTableView);

 TcxGridDBBandedTableView(AView).DataController.DataSource := <DataSource>;

 TcxGridDBBandedTableView(AView).Bands.Add;

 with TcxGridDBBandedTableView(AView).Bands.Add do

 begin

   Visible := False;

   FixedKind := fkLeft;

 end;

 TcxGridDBBandedTableView(AView).DataController.CreateAllItems;

 <cxGridLevel>.GridView := AView;

begin
  with <ABandedTableView>.Bands[0] do
  begin
    Columns[0].Width := <AWidth>;
    Columns[ColumnCount - 1].Width := <BWidth>;
  end;
end;