随笔分类 -  Delphi / Delphi DevExpress

摘要:Delphi汉化消息提示框的实现方法,例:MessageDlg提示框的汉化: (1)在Delphi的安装目录的\Source\Vcl文件夹中找到Consts.pas(XE后应为Vcl.Consts.pas)单元文件; (2)新建一个工程文件,并保存,将Consts.pas(或Vcl.Consts.p 阅读全文
posted @ 2025-03-07 14:10 Thenext 阅读(123) 评论(0) 推荐(0)
摘要:1 //根据dxBarManager 的菜单生成 TdxNavBar菜单 2 procedure TfrmMain.GenerateNavBarFromBarManager(dxBarManagerBar: TdxBar; dxNavBar: 3 TdxNavBar); 4 var 5 i, j: 阅读全文
posted @ 2025-03-03 10:22 Thenext 阅读(69) 评论(0) 推荐(0)
摘要:方法一:使用函数GetRowValue此方法在表格过滤、排序后也正常, 请注意:此代码顺序需要CXGRID的列顺序和ADOQUERY中SELECT的字段顺序一致,否则会取错。 procedure TfrmBillExtraction.pmGetBill_D_DatasClick(Sender: TO 阅读全文
posted @ 2024-11-14 17:26 Thenext 阅读(113) 评论(0) 推荐(0)
摘要:cxgrid是自带选择框的表格,开启 设置如下。 然后 后台获取 前端选中的记录字段值。用下面语句。 for I := 0 to Gview1.DataController.GetSelectedCount-1 do begin // 第一个值选中的 行 。 第二个值要获取值的字段索引 从 0 开始 阅读全文
posted @ 2024-11-14 10:20 Thenext 阅读(223) 评论(0) 推荐(0)
摘要:DEV控件确实很漂亮,但是在TcxBarEditItem编辑框录入内容后,必须回车或者TAB键才有效,否则就会消失。 解决办法 1、输入之后按Enter或者TAB键。 2、在onCurChange事件加这句行:cxBarEditItem1.EditValue := cxBarEditItem1.Cu 阅读全文
posted @ 2024-09-06 16:01 Thenext 阅读(45) 评论(0) 推荐(0)
摘要:方法: 增加控件cxGridPopupMenu,绑定对应的cxgrid ,再增加控件:,右键的菜单内容在此设定。 这里是需要设置在哪些地方可以右键弹出。 设置自定义的右键菜单。 阅读全文
posted @ 2024-01-06 10:46 Thenext 阅读(110) 评论(0) 推荐(1)
摘要://恢复布局IniFileName := ExtractFilePath(Application.ExeName) + 'Layout/' + Self.Name + '.ini';if FileExists(IniFileName) thenSelf.tvResult.RestoreFromIni 阅读全文
posted @ 2023-12-16 11:48 Thenext 阅读(63) 评论(0) 推荐(0)
摘要:TcxGridDBTableSummaryItem 引用单元 cxGridDBTableView 阅读全文
posted @ 2023-12-15 21:42 Thenext 阅读(38) 评论(0) 推荐(0)
摘要:要删除CXGrid中的所有列,可以使用以下代码: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin // 从最后一列开始删除,以避免索引错误 for i := cxGrid1DBTableView1.Colum 阅读全文
posted @ 2023-11-03 09:15 Thenext 阅读(202) 评论(0) 推荐(0)
摘要:cxGrid,数据库中存在:GongSiNo,GongSiMc;cxGrid中显示列GongSiMc,Properties指定的是ComBoBox,GongSiMc变化时更新GongSiNo的值并存入数据库。在Properties的OnChange事件中写代码:{ GSNo, GSMc: strin 阅读全文
posted @ 2023-10-30 16:04 Thenext 阅读(348) 评论(0) 推荐(0)
摘要:1.不显示中文 工具 编译器选项 显示 去掉底下的复选框(第一个consolas下面) 2, 运行窗口中文乱码方法: 1、工具—编译选项2、在第一个框中填入 -fexec-charset=gbk3、勾选“编译器加入以下命令”4、重新编译一次以后运行。 阅读全文
posted @ 2023-08-11 16:35 Thenext 阅读(2446) 评论(0) 推荐(1)
摘要:onexit 事件。 btnSC.PostEditValue //使用post更新一下 cxgrid 在onexit 退出的时候更新一下。 cxGrid1DBBandedTableView1.DataController.Post(); //退出cxgrid时提交一次数据。 阅读全文
posted @ 2023-03-29 15:54 Thenext 阅读(28) 评论(0) 推荐(0)
摘要:Dev的表格中编辑捕获EditValueChanged事件技巧:如果需要立即获取到控件编辑的当前值,调用一下GridView的PostEditor( )方法即可。 阅读全文
posted @ 2022-10-25 11:07 Thenext 阅读(172) 评论(0) 推荐(0)
摘要:DataContoller中的函数FocusedRecordIndex没有反应,FocusedRowIndex正常。 cxgrdtvGrid1DBTableView1.DataController.FocusedRecordIndex := 0; //定位到第一行,排序过滤无反应 cxgrdtvGr 阅读全文
posted @ 2022-04-23 14:35 Thenext 阅读(469) 评论(1) 推荐(0)
摘要:OptionsBehavior.PullFocusing =True。 执行多选。 with cxGrid1DBTableView1 do begin for i := 0 to Controller.SelectedROwCount - 1 do begin Controller.FocusedR 阅读全文
posted @ 2022-04-21 16:13 Thenext 阅读(260) 评论(0) 推荐(0)
摘要:用法1:在工程中加入控件cxLocalizer; 在程序中加入如下语句: Localizer.LoadFromFile(‘DevLocal.ini‘); Localizer.Language := '中文(简体,中国)'; Localizer.Active := true; 用法2:用DevExpr 阅读全文
posted @ 2022-03-19 09:24 Thenext 阅读(628) 评论(0) 推荐(0)
摘要:cxSplitter1.CloseSplitter; //收缩 cxSplitter1.OpenSplitter; //展开 阅读全文
posted @ 2022-03-11 15:31 Thenext 阅读(176) 评论(0) 推荐(0)
摘要:TCXGRID控件:属性:ActiveLevel: 当前层BorderStyle: 窗口风格Color: 颜色FocusedView: 当前View;Font: 字体LevelTabs: 类似PageControls头设置 CaptionAlgnment:标题对齐方式 Images:图标 Style 阅读全文
posted @ 2022-02-28 20:52 Thenext 阅读(572) 评论(0) 推荐(0)
摘要:用法1:在工程中加入控件cxLocalizer; 在程序中加入如下语句: 1 Localizer.LoadFromFile(‘DevLocal.ini‘); 2 Localizer.Language := '中文(简体,中国)'; 3 Localizer.Active := true; 这个方法很容 阅读全文
posted @ 2021-02-27 20:29 Thenext 阅读(443) 评论(0) 推荐(0)
摘要://1cxgrid动态创建列 procedure TFrmRuleEdit.CreateCols; var Column: TcxGridDBColumn; begin cdsPowerPrj.First; while not cdsPowerPrj.Eof do begin Column := v 阅读全文
posted @ 2020-11-30 16:57 Thenext 阅读(315) 评论(0) 推荐(0)