2010年5月24日
动态设置和访问cxgrid列的Properties
摘要： 设置： cxGrid1DBTableView1Column.PropertiesClass = TcxTextEditProperties; cxGrid1DBTableView1Column.PropertiesClass = TcxDateEditProperties; cxGrid1DBTab 阅读全文
posted @ 2010-05-24 09:49 delphi中间件 阅读(2271) 评论(0) 推荐(0)
cxgrid导出excel
摘要： uses cxexportgrid4link;var SaveDialog: TSaveDialog;begin SaveDialog:=TSaveDialog.Create(nil); with SaveDialog do begin Filter := '*.xls|*.xls'; if Exe... 阅读全文
posted @ 2010-05-24 09:44 delphi中间件 阅读(1856) 评论(0) 推荐(0)
cxgrid在内置右键菜单的后面增加菜单项
摘要： 在内置右键菜单的后面增加菜单项 首先应在Form上加一个cxGridPopupMenu控件 以启用右键菜单 UseBuildInPopupMenus设为True procedure TFormItemList.FormCreate(Sender: TObject); var AMenu: TComp 阅读全文
posted @ 2010-05-24 09:39 delphi中间件 阅读(1629) 评论(0) 推荐(0)
cxgrid在当前View插入记录
摘要： 使用FocusedView属性得到当前焦点View，用View.DataController得到对应的Data Controller， 之后使用Data Controller的方法来操作数据： - Append - Insert - Post - Cancel - DeleteFocused - DeleteSelection 示例： var ARecIndex: Integer; … View.DataController.Append; ARecIndex := View.DataController.FocusedRecordIndex; View.DataController.Valu 阅读全文
posted @ 2010-05-24 09:30 delphi中间件 阅读(464) 评论(0) 推荐(0)
cxgrid动态生成BandedView
摘要： var AView: TcxCustomGridView; begin AView := .CreateView(TcxGridDBBandedTableView); TcxGridDBBandedTableView(AView).DataController.DataSource := ; TcxGridDBBandedTableView(AView).Bands.Add; with TcxGridDBBandedTableView(AView).Bands.Add do begin Visible := False; FixedKind := fkLeft; end; TcxGridDBB 阅读全文
posted @ 2010-05-24 09:28 delphi中间件 阅读(343) 评论(0) 推荐(0)
保存/恢复cxGrid布局
摘要： //恢复布局 IniFileName := ExtractFilePath(Application.ExeName) + 'Layout/' + Self.Name + '.ini'; if FileExists(IniFileName) then Self.tvResult.RestoreFromIniFile(IniFileName) //从布局文件中恢复 else begin Self.tvResult.BeginUpdate; for i := 0 to Self.tvResult.ItemCount - 1 do Self.tvResult.Items 阅读全文
posted @ 2010-05-24 09:26 delphi中间件 阅读(875) 评论(0) 推荐(0)
cxgrid按条件计算合计值
摘要： 在Footer的第一列显示[合计:] 加一个Summary项,Column设为Grid的第一列,Kind设为skNone 在该Summary项的OnGetText事件中,输入: procedure TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText( Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: String); begin AText := '合计: 阅读全文
posted @ 2010-05-24 09:22 delphi中间件 阅读(1276) 评论(0) 推荐(0)