Delphi CxGrid 汇总（5）

最新推荐文章于 2025-11-03 09:43:21 发布

原创

最新推荐文章于 2025-11-03 09:43:21 发布 · 2.7k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #CxGrid

本文详细介绍了Delphi CxGrid组件的各种操作，包括保存和恢复带汇总行的布局、取消过滤后移到第一行、排序后定位第一行、判断当前行位置、根据值查找记录、编辑和显示Blob字段、获取可见行数，以及如何为cxGRID添加序号列和处理过滤后数据集的同步问题。提供了实用的解决方案和代码示例。

50 保存/恢复带汇总行的布局

<TableView>.StoreToIniFile('c:\Grid.ini', True, [gsoUseSummary]);
<GridView>.RestoreFromIniFile(<inifilename>,True,False {or True, optional},[gsoUseSummary]);

****************************************************************************
51 取消过滤时移到第一行
解决：
uses
      cxCustomData;

procedure   TYour_Form.AViewDataControllerFilterChanged(Sender:   TObject);
var
      Filter:   TcxDataFilterCriteria;
begin
      with   Sender   as   TcxDataFilterCriteria   do
          if   IsEmpty   then
              DataController.FocusedRowIndex   :=   0;
end;
****************************************************************************
52 排序后移到第一行
解决：
可以设置DataController.Options.FocusTopRowAfterSorting   :=   True，也可以使用如下的代码：

uses
      cxCustomData;

procedure   TYour_Form.Your_ViewDataControllerSortingChanged(Sender:   TObject);
begin
      TcxCustomDataController(Sender).FocusedRowIndex   :=   0;
end;
****************************************************************************
53 判断当前行是否第一行或最后一行
解决：
可以使用DataController的IsBOF,   IsEOF方法，或者：
<AView>.Controller.Controller.FocusedRow.IsFirst
<AView>.Controller.Controller.FocusedRow.IsLast
****************************************************************************
54 根据指定值查找记录
解决：
DataController提供了好几个方法来得到指定值对应的RecordIndex
对于Bound   View可以使用FindRecordIndexByKeyValue方法
****************************************************************************
55 编辑和显示Blob字段
解决：
该字段的Properties设置为BlobEdit，并将BlobPaintStyle   属性设为   bpsText
****************************************************************************
56 得到可见行数