delphi cxgrid Footer设置

1.首先设置OptionsView.footer:=true

 2.双击GridView1视图,转到 总结 - 页脚 页面,然后点添加

 3.设置footer

 说明,不要设置FieldName.  Kind选择你需要的功能

4.设置 "合计"字样(可选,可改)

按上面1-3的步骤选择一个用不到的列(一般选最左的列).然后设置它的onGetText事件

 

procedure TfraModuleCPRK.GridView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems3GetText
    (Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var
    AText: string);
begin
    AText := '合计:';
end;

效果图如下: