Delphi CxGrid 汇总（3）

2022-09-16 17:13:11

列  

解决：

      <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

[delphi] view
plaincopy
  1. uses   cxGridStdPopupMenu;
  2. procedure   TForm1.cxGridPopupMenu1Popup(ASenderMenu:   TComponent;
  3. AHitTest:   TcxCustomGridHitTest;   X,   Y:   Integer;   var   AllowPopup:   Boolean);
  4. begin
  5. if   ASenderMenu   is   TcxGridStdHeaderMenu   then
  6. TcxGridStdHeaderMenu(ASenderMenu).OnPopup   :=   StdHeaderMenuPopup;
  7. end;
  8. procedure   TForm1.StdHeaderMenuPopup(Sender:   TObject);
  9. var
  10. I:   Integer;
  11. begin
  12. with   TcxGridStdHeaderMenu(Sender).Items   do
  13. for   I   :=   0   to   Count   -   1   do
  14. if   Items[I].Caption   =   'Group   By   Box'   then
  15. begin
  16. Items[I].Enabled   :=   False;
  17. System.Break;
  18. end
  19. end;

****************************************************************************

41 得到选中记录的值

解决：

[delphi] view
plaincopy
  1. 1)   View.DataController.DataModeController.GridMode   =   False时
  2. RecIdx   :=   View.Controller.SelectedRecords[i].RecordIndex;
  3. ColIdx   :=   View.DataController.GetItemByFieldName(AFieldName).Index;
  4. OutputVal   :=   View.DataController.Values[RecIdx,   ColIdx];
  5. //RecID   :=   View.DataController.GetRecordId(RecIdx);
  6. //OutputVal   :=   ADataSet.Lookup(View.DataController.KeyFieldNames,   RecID,   AFieldName);
  7. 2)   View.DataController.DataModeController.GridMode   =   True时
  8. Bkm   :=   View.DataController.GetSelectedBookmark(ASelectedRecordIndex);
  9. if   ADataSet.BookmarkValid(TBookmark(Bkm))   then
  10. begin
  11. ADataSet.Bookmark   :=   TBookmark(Bkm);
  12. OutputVal   :=   ADataSet.FieldByName(AFieldName).Value;
  13. end;
  14. View.BeginUpdate;
  15. View.DataController.BeginLocate;
  16. try
  17. //   make   changes   here…
  18. finally
  19. View.DataController.EndLocate;
  20. View.EndUpdate;
  21. end;

****************************************************************************

42 在GridMode禁用内置的右键Footer菜单

解决：

uses   cxGridStdPopupMenu;  

   

procedure   cxGridPopupMenuOnPopup(...)  

begin  

      if   (ASenderMenu   is   TcxGridStdFooterMenu)   and  

              <GridView>.DataController.DataModeController.GridMode   then  

          AllowPopup   :=   False;  

end;

****************************************************************************

43 主从表任何时候只能展开一个组

解决：

[delphi] view
plaincopy
  1. procedure   TForm1.ADetailDataControllerCollapsin(  ADataController:  TcxCustomDataController;
  2. ARecordIndex:   Integer;  var   AAllow:   Boolean);
  3. var
  4. I:   Integer;
  5. C:   Integer;
  6. begin
  7. AAllow   :=   False;
  8. C   :=   0;
  9. for   I   :=   0   to   ADataController.RecordCount   -   1   do
  10. begin
  11. if   ADataController.GetDetailExpanding(I)   then
  12. Inc(C);
  13. if   C   >   1   then
  14. AAllow   :=   True;
  15. end;
  16. end;
  17. procedure   TForm1.ADetailDataControllerExpanding(
  18. ADataController:   TcxCustomDataController;   ARecordIndex:   Integer;
  19. var   AAllow:   Boolean);
  20. begin
  21. ADataController.CollapseDetails;
  22. end;
  23. procedure   TForm1.FormCreate(Sender:   TObject);
  24. begin        cxGrid1DBTableView1.DataController.OnDetailExpanding:=ADetailDataControllerExpanding;         cxGrid1DBTableView1.DataController.OnDetailCollapsing:=ADetailDataControllerCollapsing;
  25. end;
  26. ****************************************************************************
  27. 44 动态创建层次(Level)和视图(View)
  28. 解决：
  29. var
  30. Grid:   TcxGrid;
  31. Level:   TcxGridLevel;
  32. View:   TcxGridDBTableView;
  33. begin
  34. //   Creates   a   Grid   instance
  35. Grid   :=   TcxGrid.Create(SomeOwner);
  36. Grid.Parent   :=   SomeParent;
  37. //   Creates   a   Level
  38. Level   :=   Grid.Levels.Add;
  39. Level.Name   :=   'SomeLevelName';
  40. //   Creates   a   View
  41. View   :=   Grid.CreateView(TcxGridDBTableView)   as   TcxGridDBTableView;
  42. View.Name   :=   'SomeViewName';
  43. //   …   and   binds   it   to   the   Level
  44. Level.GridView   :=   View;
  45. //   Hooks   up   the   View   to   the   data
  46. View.DataController.DataSource   :=   SomeDataSource;
  47. //   …   and   creates   all   columns
  48. View.DataController.CreateAllItems;
  49. end;

****************************************************************************

45 获得Group   Footer合计行对应的记录

解决：

[delphi] view
plaincopy
  1. procedure   TForm1.cxGrid1DBTableView1CustomDrawFooterCell(
  2. Sender:   TcxGridTableView;   ACanvas:   TcxCanvas;
  3. AViewInfo:   TcxGridColumnHeaderViewInfo;   var   ADone:   Boolean);
  4. var
  5. ALevel,   ADataGroupIndex:   Integer;
  6. AGridRecord,   AGroupRecord:   TcxCustomGridRecord;
  7. begin
  8. if   AViewInfo   is   TcxGridRowFooterCellViewInfo   and    //   Row   footer
  9. (TcxGridDBColumn(AViewInfo.Column).DataBinding.FieldName   =   'Area')   then     //   Area   column
  10. begin
  11. AGridRecord:=   TcxGridRowFooterCellViewInfo(AViewInfo).GridRecord;
  12. ALevel:= TcxGridRowFooterCellViewInfo(AViewInfo).Container.GroupLevel;
  13. ADataGroupIndex:=Sender.DataController.Groups.DataGroupIndexByRowIndex[AGridRecord.Index];
  14. if   ADataGroupIndex   <>   -1   then
  15. begin
  16. AGroupRecord   :=   AGridRecord;
  17. while   AGroupRecord.Level   <>   ALevel   do
  18. AGroupRecord   :=   AGroupRecord.ParentRecord;
  19. AViewInfo.Text   :=   AGroupRecord.DisplayTexts[0];
  20. end;
  21. end;
  22. 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
  1. function   GetLevelByName(AGrid:   TcxGrid;   ALevelName:   string):   TcxGridLevel;
  2. function   LoopThroughLevels(ALevel:   TcxGridLevel;   ALevelName:   string):   TcxGridLevel;
  3. var
  4. I:   Integer;
  5. begin
  6. Result   :=   nil;
  7. for   I   :=   0   to   ALevel.Count   -   1   do
  8. begin
  9. if   ALevel[I].Name   =   ALevelName   then
  10. begin
  11. Result   :=   ALevel[I];
  12. Exit;
  13. end;
  14. if   ALevel[I].Count   >   0   then
  15. begin
  16. Result   :=   LoopThroughLevels(ALevel[I],   ALevelName);
  17. if   Result   <>   nil   then
  18. Exit;
  19. end;
  20. end;
  21. end;
  22. var
  23. I:   Integer;
  24. begin
  25. Result   :=   nil;
  26. for   I   :=   0   to   AGrid.Levels.Count   -   1   do
  27. begin
  28. if   AGrid.Levels[I].Name   =   ALevelName   then
  29. begin
  30. Result   :=   AGrid.Levels[I];
  31. Exit;
  32. end;
  33. if   AGrid.Levels[I].Count   >   0   then
  34. begin
  35. Result   :=   LoopThroughLevels(AGrid.Levels[I],   ALevelName);
  36. if   Result   <>   nil   then
  37. Exit;
  38. end;
  39. end;
  40. end;

****************************************************************************

49 指定Filter   Builder打开/保存过滤文件的默认路径

解决：

uses  

      ...,   cxFilterControlDialog;  

   

procedure   TForm.GridView1FilterControlDialogShow(  

      Sender:   TObject);  

begin  

      TfmFilterControlDialog(Sender).OpenDialog.InitialDir   :=   'D:/'  

end;

上一篇：CSS3的chapter5


下一篇：python 安装模块