cxgrid动态生成列，如何写成自定义过程，所有方便在其它窗体调用

[yuzt]

cxgrid动态生成列，如何把下面的代码写成自定义过程，所有方便在其它窗体调用

var
  i:integer;
begin
  for i:=0 to DataModule1.ADOQuery1.fieldcount-1 do
    begin
      frm.cxgridview1.CreateColumn;
      frm.cxgridview1.Columns[i].DataBinding.fieldname:=DataModule1.ADOQuery1.Fields[i].DisplayName;
      frm.cxgridview1.Columns[i].caption:=DataModule1.ADOQuery1.Fields[i].fieldname;
    end;
end;

[yuzt]

已解决

procedure procCXGridInit(mcxView: TcxGridDBTableView);  //cxGrid参数初始化
var
  i: Integer;
  Column: TcxGridDBColumn;
begin
  with mcxView do
    if DataController.DataSource <> nil then
      if DataController.DataSource.DataSet <> nil then
      begin
        OptionsView.GroupByBox :=False; //不显示Drag a column header to group by that column
        OptionsCustomize.ColumnsQuickCustomization :=True;  //左上角显示字段显示按钮
        OptionsView.Indicator :=True;
        OptionsView.IndicatorWidth := 40; //ID宽度
        ClearItems;
        for i:=0 to DataController.DataSource.DataSet.FieldCount-1 do
        begin
          Column := CreateColumn;
          Column.DataBinding.FieldName := DataController.DataSource.DataSet.Fields[i].FieldName;
          Column.width:=80;   //列宽度
        end;
      end;
end;