Delphi CxGrid 汇总（3）

2021-02-11 10:17

阅读：386

列
解决：
      .GroupIndex   :=   -1;
      .Visible   :=   True;
****************************************************************************
39 保存修改到数据库
解决：
procedure   .FormClose(Sender:   TObject;   var   Action:   TCloseAction);
begin
if   (.FocusedView nil)
and   (.FocusedView.DataController.EditState []) then
          .FocusedView.DataController.Post;
end;
****************************************************************************
40 设置内置右键菜单
解决：
内置右键菜单包括二个菜单:cxGridStdHeaderMenu,   TcxGridStdFooterMenu

[delphi] view plaincopy

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 得到选中记录的值
解决：

[delphi] view plaincopy

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
              .DataController.DataModeController.GridMode   then
          AllowPopup   :=   False;
end;
****************************************************************************
43 主从表任何时候只能展开一个组
解决：

[delphi] view plaincopy

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合计行对应的记录
解决：

[delphi] view plaincopy

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对象
解决：

[delphi] view plaincopy

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;

上一篇：Delphi cxGrid使用汇总（一）

下一篇：C# 比较不错的拓扑图控件

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：Delphi CxGrid 汇总（3）
文章链接：http://soscw.com/index.php/essay/53983.html

亲，登录后才可以留言！

Delphi CxGrid 汇总（3）

评论

热门文章

推荐文章

最新文章

置顶文章