Delphi 以编程方式将列添加到TdxDBGrid（Devexpress提供的Expressquantumgrid）

与一位客户一起，我一直在为DevExpress提供的ExpressQuantumGrid的2.1版进行开发。在Delphi 4中。我找不到关于它的任何文件

基本上，我只需要创建一组TdxDBGridMaskColumn，并在运行时将它们插入网格TdxDBGrid。从代码完成弹出窗口中，我不知道如何完成

---

谢谢

我们有一个使用Delphi 5和DevExpress v3的旧应用程序，代码可能不完全相同，但应该让您开始使用

可以创建任何类型TDXDBDATECLUMN的列的函数，例如：

function CreateColumn(const aField: string; aColClass: TdxDBTreeListColumnClass): TdxDBTreeListColumn;
var
begin
  Result := dxGrid.CreateColumn(aColClass);
  Result.Name := dxGrid.Name + aField;
  TdxDBGridColumn(Result).DisableFilter := True;
  TdxDBGridColumn(Result).DisableGrouping := True;
  TdxDBGridColumn(Result).Alignment := taRightJustify;
  TdxDBGridColumn(Result).FieldName := aField;
  TdxDBGridColumn(Result).Caption := aField;
  TdxDBGridColumn(Result).Width := 70;
end;

然后您可以这样调用此函数：

NewColumn := CreateColumn('Username', TdxDBGridColumn);