列 解决：39 保存修改到数据库 解决：40 设置内置右键菜单 解决：
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];
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
finally
View. DataController . EndLocate;
View. EndUpdate;
end ;
****************************************************************************42 在GridMode禁用内置的右键Footer菜单 解决：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
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
阅读：19241| 2023-10-27
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
阅读：10001| 2022-11-06
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
阅读：8331| 2022-11-06
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
阅读：8701| 2022-11-06
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
阅读：8647| 2022-11-06
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
阅读：9673| 2022-11-06
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
阅读：8632| 2022-11-06
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
阅读：8006| 2022-11-06
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
阅读：8668| 2022-11-06
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
阅读：7540| 2022-11-06
客服电话
APP下载
官方微信
请发表评论