Delphi cxgrid 使用方法
1. 绑定数据
方法
cxGrid1DBTableView1.DataController.DataSource:=DataSource1
2. 去掉 "Drag a column header here to group by that column"
方法
cxGrid1DBTableView1.OptionsView.GroupByBox 置为 False
3. 去掉表头下三角数据
方法
cxGrid1DBTableView1.Optionscustomize.columnfiltering 置为 False
4. 增加序号
方法
在 dataset 里边增加 Mycount 字段 类型为 string
在 CXgrid 增加显示字段 序号 mycount
为该字段写事件
- procedure Tfrm_form.ReDataSet2mycountGetText(Sender: TField;
- var Text: String; DisplayText: Boolean);
- begin
- inherited;
- text:=inttostr(redataset2.RecNo);
- end;
将 序号 绑定 字段 Mycount
5.CXgrid 增加一栏显示 checkBox
方法
在 dataset 里边增加 MySelect 字段 类型为 BOOLEAN
在 CXgrid 增加显示字段 选择 select
设定 select 字段的 Properties 为 CheckBox . ReadOnly = False;
- NullStyle = nssUnchecked
- procedure Tfrm_form.cxGrid1DBTableView1CellClick(
- Sender: TcxCustomGridTableView;
- ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
- AShift: TShiftState; var AHandled: Boolean);
- var
- Row: Integer;
- begin
- inherited;
- if ACellViewInfo.Item.Name = mycheck then
- begin
- Row := cxGrid1DBTableView1.DataController.FocusedRecordIndex;
- if cxGrid1DBTableView1.ViewData.Records[Row].Values[0] = True then
- cxGrid1DBTableView1.ViewData.Records[Row].Values[0] := False
- else
- cxGrid1DBTableView1.ViewData.Records[Row].Values[0] := True;
- end;
- end;
- procedure Tfrm_form.cxGrid1DBTableView1MouseUp(Sender: TObject;
- Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
- var
- Row: Integer;
- begin
- inherited;
- // 单选
- // for Row:=0 to cxGrid1DBTableView1.DataController.RecordCount-1 do
- // begin
- // cxGrid1DBTableView1.ViewData.Records[Row].Values[0] := False;
- // end;
- // 多选
- if cxGrid1DBTableView1.DataController.RecordCount<>0 then
- begin
- Row := cxGrid1DBTableView1.DataController.FocusedRecordIndex;
- if cxGrid1DBTableView1.ViewData.Records[Row].Values[0] = True then
- cxGrid1DBTableView1.ViewData.Records[Row].Values[0] := False
- else
- cxGrid1DBTableView1.ViewData.Records[Row].Values[0] := True;
- end;
- end;
来源: http://www.bubuko.com/infodetail-2526529.html