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

[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;