Delphi CxGrid 汇总(3)
列
解决:
<aColumn>.GroupIndex := -1;
<aColumn>.Visible := True;
****************************************************************************
39 保存修改到数据库
解决:
procedure <aForm>.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (<aGrid>.FocusedView <> nil)
and (<aGrid>.FocusedView.DataController.EditState <> []) then
<aGrid>.FocusedView.DataController.Post;
end;
****************************************************************************
40 设置内置右键菜单
解决:
内置右键菜单包括二个菜单:cxGridStdHeaderMenu, TcxGridStdFooterMenu
- uses cxGridStdPopupMenu;
- procedure TForm1.cxGridPopupMenu1Popup(ASenderMenu: TComponent;
- AHitTest: TcxCustomGridHitTest; X, Y: Integer; var AllowPopup: Boolean);
- begin
- if ASenderMenu is TcxGridStdHeaderMenu then
- TcxGridStdHeaderMenu(ASenderMenu).OnPopup := StdHeaderMenuPopup;
- end;
- procedure TForm1.StdHeaderMenuPopup(Sender: TObject);
- var
- I: Integer;
- begin
- with TcxGridStdHeaderMenu(Sender).Items do
- for I := 0 to Count - 1 do
- if Items[I].Caption = 'Group By Box' then
- begin
- Items[I].Enabled := False;
- System.Break;
- end
- end;
****************************************************************************
41 得到选中记录的值
解决:
- 1) View.DataController.DataModeController.GridMode = False时
- RecIdx := View.Controller.SelectedRecords[i].RecordIndex;
- ColIdx := View.DataController.GetItemByFieldName(AFieldName).Index;
- OutputVal := View.DataController.Values[RecIdx, ColIdx];
- //RecID := View.DataController.GetRecordId(RecIdx);
- //OutputVal := ADataSet.Lookup(View.DataController.KeyFieldNames, RecID, AFieldName);
- 2) View.DataController.DataModeController.GridMode = True时
- Bkm := View.DataController.GetSelectedBookmark(ASelectedRecordIndex);
- if ADataSet.BookmarkValid(TBookmark(Bkm)) then
- begin
- ADataSet.Bookmark := TBookmark(Bkm);
- OutputVal := ADataSet.FieldByName(AFieldName).Value;
- end;
- View.BeginUpdate;
- View.DataController.BeginLocate;
- try
- // make changes here…
- finally
- View.DataController.EndLocate;
- View.EndUpdate;
- end;
****************************************************************************
42 在GridMode禁用内置的右键Footer菜单
解决:
uses cxGridStdPopupMenu;
procedure cxGridPopupMenuOnPopup(...)
begin
if (ASenderMenu is TcxGridStdFooterMenu) and
<GridView>.DataController.DataModeController.GridMode then
AllowPopup := False;
end;
****************************************************************************
43 主从表任何时候只能展开一个组
解决:
- procedure TForm1.ADetailDataControllerCollapsin( ADataController: TcxCustomDataController;
- ARecordIndex: Integer; var AAllow: Boolean);
- var
- I: Integer;
- C: Integer;
- begin
- AAllow := False;
- C := 0;
- for I := 0 to ADataController.RecordCount - 1 do
- begin
- if ADataController.GetDetailExpanding(I) then
- Inc(C);
- if C > 1 then
- AAllow := True;
- end;
- end;
- procedure TForm1.ADetailDataControllerExpanding(
- ADataController: TcxCustomDataController; ARecordIndex: Integer;
- var AAllow: Boolean);
- begin
- ADataController.CollapseDetails;
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- begin cxGrid1DBTableView1.DataController.OnDetailExpanding:=ADetailDataControllerExpanding; cxGrid1DBTableView1.DataController.OnDetailCollapsing:=ADetailDataControllerCollapsing;
- end;
- ****************************************************************************
- 44 动态创建层次(Level)和视图(View)
- 解决:
- var
- Grid: TcxGrid;
- Level: TcxGridLevel;
- View: TcxGridDBTableView;
- begin
- // Creates a Grid instance
- Grid := TcxGrid.Create(SomeOwner);
- Grid.Parent := SomeParent;
- // Creates a Level
- Level := Grid.Levels.Add;
- Level.Name := 'SomeLevelName';
- // Creates a View
- View := Grid.CreateView(TcxGridDBTableView) as TcxGridDBTableView;
- View.Name := 'SomeViewName';
- // … and binds it to the Level
- Level.GridView := View;
- // Hooks up the View to the data
- View.DataController.DataSource := SomeDataSource;
- // … and creates all columns
- View.DataController.CreateAllItems;
- end;
****************************************************************************
45 获得Group Footer合计行对应的记录
解决:
- procedure TForm1.cxGrid1DBTableView1CustomDrawFooterCell(
- Sender: TcxGridTableView; ACanvas: TcxCanvas;
- AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);
- var
- ALevel, ADataGroupIndex: Integer;
- AGridRecord, AGroupRecord: TcxCustomGridRecord;
- begin
- if AViewInfo is TcxGridRowFooterCellViewInfo and // Row footer
- (TcxGridDBColumn(AViewInfo.Column).DataBinding.FieldName = 'Area') then // Area column
- begin
- AGridRecord:= TcxGridRowFooterCellViewInfo(AViewInfo).GridRecord;
- ALevel:= TcxGridRowFooterCellViewInfo(AViewInfo).Container.GroupLevel;
- ADataGroupIndex:=Sender.DataController.Groups.DataGroupIndexByRowIndex[AGridRecord.Index];
- if ADataGroupIndex <> -1 then
- begin
- AGroupRecord := AGridRecord;
- while AGroupRecord.Level <> ALevel do
- AGroupRecord := AGroupRecord.ParentRecord;
- AViewInfo.Text := AGroupRecord.DisplayTexts[0];
- end;
- end;
- end;
****************************************************************************
46 访问过滤之后的记录
解决:
var
I: Integer;
begin
Memo1.Lines.Clear;
with cxGrid1DBTableView1.DataController do
for I := 0 to FilteredRecordCount - 1 do
Memo1.Lines.Add(DisplayTexts[FilteredRecordIndex[I], 0]);
end;
****************************************************************************
47 获得单元的Font
解决:
cxGrid1DBTableView1.ViewInfo.RecordsViewInfo.Items[1].GetCellViewInfoByItem(
cxGrid1DBTableView1Company).EditViewInfo.Font;
****************************************************************************
48 根据Level名称找到Level对象
解决:
- function GetLevelByName(AGrid: TcxGrid; ALevelName: string): TcxGridLevel;
- function LoopThroughLevels(ALevel: TcxGridLevel; ALevelName: string): TcxGridLevel;
- var
- I: Integer;
- begin
- Result := nil;
- for I := 0 to ALevel.Count - 1 do
- begin
- if ALevel[I].Name = ALevelName then
- begin
- Result := ALevel[I];
- Exit;
- end;
- if ALevel[I].Count > 0 then
- begin
- Result := LoopThroughLevels(ALevel[I], ALevelName);
- if Result <> nil then
- Exit;
- end;
- end;
- end;
- var
- I: Integer;
- begin
- Result := nil;
- for I := 0 to AGrid.Levels.Count - 1 do
- begin
- if AGrid.Levels[I].Name = ALevelName then
- begin
- Result := AGrid.Levels[I];
- Exit;
- end;
- if AGrid.Levels[I].Count > 0 then
- begin
- Result := LoopThroughLevels(AGrid.Levels[I], ALevelName);
- if Result <> nil then
- Exit;
- end;
- end;
- end;
****************************************************************************
49 指定Filter Builder打开/保存过滤文件的默认路径
解决:
uses
..., cxFilterControlDialog;
procedure TForm.GridView1FilterControlDialogShow(
Sender: TObject);
begin
TfmFilterControlDialog(Sender).OpenDialog.InitialDir := 'D:/'
end;
转载于:https://www.cnblogs.com/jupt/p/3922932.html
Delphi CxGrid 汇总(3)相关推荐
- Delphi CxGrid 用法详解
1. 去掉cxgrid中抬头的box,在tableview1的ptionsview的groupbybox=false; 2. 在GRID footer 中加入sum(列),tableview1的opt ...
- delphi cxgrid 增加选择框
查了网上很多资料没有说明,都是各种多选方法,乱七八糟. 以前用dxdbgrid也没这么麻烦.我觉得CXgrid一定有开启的方法,所以经过不停试属性,终于试出来了. cxgrid是自带选择框的表格,开启 ...
- delphi cxgrid读取本地image_技术讨论 | PHP本地文件包含漏洞GetShell
序言 让我们突破重重苛刻环境GetShell,文中有以phpmyadmin包含漏洞做演示. PS:本文仅用于技术讨论与分析,严禁用于任何非法用途,违者后果自负. 漏洞背景 当您在发现PHP本地文件包含 ...
- delphi cxgrid导出excel去除货币符号
版本 : devexpress 13.1.4 打开 包在ExpressExportLibary目录中. 修改FCells.SetCellDataCurrency为FCells.SetCellData ...
- Delphi 精选文章地址
Delphi 三层开发 ************ http://blog.csdn.net/lailai186/article/category/1396968 Delphi CxGrid 汇总 ...
- Delph cxGrid操作
Delphi Cxgrid获取选中行列,排序规则,当前正在编辑的单元格内的值 cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号 cxGrid1DB ...
- DevExpressVCL控件之DevExpress
以下皆借用各位大佬: TcxFilterControl:过滤器控件,根据cxgrid的filterControl建立强大灵活的过滤器 - westsoft - 博客园 TcxTabControl:选项 ...
- cxGrid使用汇总4
49指定Filter Builder打开/保存过滤文件的默认路径 解决: uses ..., cxFilterControlDialog; procedure ...
- 最全面的常用Delphi第三方控件汇总—报表、图表、界面、数据库等
有网友问我常用的控件及功能.我先大概整理一下,以后会在文章里面碰到时再仔细介绍. 报表图表方面: TeeChart Pro 在delphi 的图形显示方面目前唯一的选择,虽然从delphi 3 就随d ...
最新文章
- Linux下stat + 文件名后, Access,Modify,Change的含义
- 通俗易懂:图卷积神经网络入门详解
- MySQL 5.7 并行复制实现原理与调优
- python有什么作用-大数据学习之python语言有什么作用?
- tkinter中的canvas的边框问题
- BUUCTF(pwn)mrctf2020_easyoverflow
- LVM---基本创建和使用
- acquireQueued
- 大一大学计算机考试难吗,新生必看!大一期间必考的3个证书,不考后悔,越拖越难考!...
- RowVersion字段从SqlServer到PostgreSQL的迁移
- 大自然里,隐藏着最美妙的数学
- 电脑c语言怎么调出来的,c语言系统源代码_C语言判断系统版本的代码怎样将值调出来啊...
- Java8 stream().map()将对象转换为其他对象
- 接口定义【领域对象】
- 框架页面中,从子页面刷新父页面问题解决
- 电脑网页截屏怎么截长图?借助Safari对整个网页进行长截图
- 从事汽车电子软件开发需要什么技能?
- Matlab转C/C++/Cmex文件加速运行方法
- 计算机一级证件照尺寸,照相馆不会告诉你的哪些事:常用证件照尺寸汇总
- 电话程控交换机安装经验