|
#1
|
|||
|
|||
Компонент cxGrid
Подскажите как в cxGrid динамически создавать поля.
|
#2
|
|||
|
|||
Из живого проекта:
Код:
procedure TfReportForm.AddColumn(pCaption, pFieldName: string; pWidth, pGroupIndex, pSortIndex: integer; pVisible: boolean; IsSumm: Boolean = False); var cxColumn: TcxGridDBColumn; cxSum: TcxGridDBTableSummaryItem; begin cxColumn := cxGridReportDBTableView.CreateColumn; cxColumn.Caption := pCaption; cxColumn.DataBinding.FieldName := pFieldName; cxColumn.GroupIndex := pGroupIndex; if pSortIndex >= 0 then begin cxColumn.SortIndex := pSortIndex; cxColumn.SortOrder := soAscending; end; cxColumn.Visible := pVisible; if (pWidth > 0) then cxColumn.Width := pWidth; if IsSumm then begin // cxSum := cxGridReportDBTableView.DataController.Summary.FooterSummaryItems.Add As TcxGridDBTableSummaryItem; cxSum := cxGridReportDBTableView.DataController.Summary.defaultGroupSummaryItems.Add as TcxGridDBTableSummaryItem; cxSum.FieldName := pFieldName; cxSum.Kind := skSum; cxSum.Column := cxColumn; cxSum.Position := spFooter; end; end; |