delphi - TdxDBGrid へのプログラムによる列の追加 (Devexpress による Expressquantumgrid)

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