以編程方式將列添加到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);