上一页 1 ··· 168 169 170 171 172 173 174 175 176 ··· 203 下一页
摘要: 设置: cxGrid1DBTableView1Column.PropertiesClass = TcxTextEditProperties; cxGrid1DBTableView1Column.PropertiesClass = TcxDateEditProperties; cxGrid1DBTab 阅读全文
posted @ 2010-05-24 09:49 delphi中间件 阅读(2271) 评论(0) 推荐(0)
摘要: 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)
摘要: 在内置右键菜单的后面增加菜单项 首先应在Form上加一个cxGridPopupMenu控件 以启用右键菜单 UseBuildInPopupMenus设为True procedure TFormItemList.FormCreate(Sender: TObject); var AMenu: TComp 阅读全文
posted @ 2010-05-24 09:39 delphi中间件 阅读(1629) 评论(0) 推荐(0)
摘要: 使用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)
摘要: 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)
摘要: //恢复布局 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)
摘要: 在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)
摘要: 下面例举一个典型的模板:1.今天是____年__月__日,农历_______,距离______还有_____天。今天节目的主要内容有:_____、_____、______。下面请听详细内容。2. ____在钓鱼台国宾馆亲切会见了____,双方进行了亲切友好的会谈。____高度赞赏了____,并对____一贯坚持“一个中国”的原则表示感谢。3. ____出访____,会见了____,_______高度赞扬中__两国关系,对____表示欢迎,并强烈谴责了___国家____的做法。4. ______会议在北京隆重召开。_____致开幕词。____以____票支持、0票反对、1票弃权通过一项____决 阅读全文
posted @ 2010-05-20 11:10 delphi中间件 阅读(220) 评论(0) 推荐(0)
摘要: uses ehlibado;改良dbgrideh的文字过滤,原先过虑需要填%字符串%,修改后,直接填入所要搜索的字符串即可,相关代码: procedure TSTColumnFilterEh.InternalSetExpressionStr(const Value: String); procedure SetLookupKeyValues(var v: Variant); var i: Integer; begin if VarIsArray(Expression.Operand1) then for i := VarArrayLowBound(Expression.Operand1, 1) 阅读全文
posted @ 2010-05-19 15:13 delphi中间件 阅读(529) 评论(0) 推荐(0)
摘要: 在www.delphifans.com(delphi园地)发布脚本开发框架代码 阅读全文
posted @ 2010-05-19 14:43 delphi中间件 阅读(234) 评论(0) 推荐(0)
上一页 1 ··· 168 169 170 171 172 173 174 175 176 ··· 203 下一页