Программное добавление столбцов в TdxDBGrid (Expressquantumgrid от Devexpress)

Question

Вместе с заказчиком я застрял в разработке этой очень старой версии (2.1) ExpressQuantumGrid от DevExpress. В 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);