delphi - 以编程方式将列添加到 TdxDBGrid（Devexpress 的 Expressquantumgrid）

Question

对于一个客户，我一直在为 DevExpress 的这个非常旧的版本（2.1）的 ExpressQuantumGrid 进行开发。在 Delphi 4 中。我找不到任何关于它的文档。

基本上我只需要创建一堆 TdxDBGridMaskColumn 并在运行时将它们“插入”到网格（TdxDBGrid）中。从代码完成弹出窗口中，我无法弄清楚如何。

谢谢！

Answer 1

我们有一个使用 Delphi 5 和 DevExpress v3 的旧应用程序，代码可能不完全相同，但应该可以帮助您入门。

可以创建任何类型的列的函数（例如 TdxDBDateColumn）：

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);