프로그래밍 방식으로 TdxDBGrid에 컬럼 추가 (Devexpress의 Expressquantumgrid)

Question

고객과 함께 DevExpress에 의해 ExpressQuantumGrid의 아주 오래된 버전 (2.1)을 개발하는 데 어려움을 겪고 있습니다. 델파이 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);