Question

对于一个客户，我正在为DevExpress的ExpressQuantumGrid这个非常旧的版本（2.1）开发。在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);

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

1 个答案: