一曲轻扬

摘要： 转载自:http://t.zoukankan.com/hnxxcxg-p-2940801.html 以下代碼在D7+ACCESS+FastReport 3.15版中測試通過. 1.將FastReport存入數據庫中: 在窗體的"Insert"按鈕的OnClick事件中插入下面代碼:(Insert_r 阅读全文

摘要： 我设置了一个双击事件,然后又想通过右键菜单来实现双击整事件里的功能,就这么一个简单的功能,我卡了一天! 主要卡在 ACellViewInfo 这个参数里面,想传这个参数进去,又不会看英文文档,只能慢慢试,还好最后试出来了! 写出来是希望有遇到相同问题的朋友,不要再经历像我一样的痛苦. 先看一下双击事 阅读全文

摘要： 我现在一个窗体里,加载了个TcxGrid 对象,想让这三个对象共用一个右键菜单.所以在菜单弹出之前,要判断是在哪个对象里弹出来,然后设置右键菜单的内容. 在网上找到这段代码: ShowMessage(PopupMenu1.PopupComponent.Name ); 但是一直弹出空白.后来经过猫哥的 阅读全文

摘要： 安装教程:http://t.zoukankan.com/liessay-p-5321278.html 这里给大家提个醒: 以管理员身份运行.如果你想要使用中文版,需要在选择中文时,马上点一下compile,然后再选择Recompile all packages 再点一下compile 如果你打开fa 阅读全文

摘要： 需求: 已知 申购数量 / 单重 = 支数,其中[支数]为自动计算列,且 [支数] 字段实际存在于数据库中 特殊情况: 当单重为0时,支数为0 当 1 > 支数 > 0时,支数=1 procedure TFraModleBase.TV申购清单EditValueChanged(Sender: TcxC 阅读全文

摘要： 需求明细: 1.表格 TV申购清单,默认OptionsData--Editing:true 可写权限 2.默认 列属性 [申购数量,单重,用途,需求日期] Options Editing:true 常规情况下,这几列是可自由修改的. 3.当物料代码前四位为'temp'时, 列 [物料名称,规格型号, 阅读全文

摘要： 用FormatFloat来处理浮点数,是一个很好的选择. 我这里只讲一种语法: FormatFloat(格式,数值) 第一坑: 第二参数为数值类型,别传个文本值进去. 第二坑: 返回值是一个string.如里需要转换为数值,需要再套一个转化函数 :StrToFloat(FormatFloat(格式, 阅读全文

摘要： 本文写于2022-10-14,D版本10.3.3 引用单元: uses System.RegularExpressions 1、TRegEx.Match方法 Match()方法总是获取满足条件的第一个匹配，而不关心满足条件的匹配有多少个。 Match()方法都回一个Match对象，其中包含了匹配的各 阅读全文

摘要： 转自: https://www.cnblogs.com/maweiwei/p/7493614.html 例子1 测试 时，CPU并没有占用100% 不知道是否Delphi高版本已优化。 声明：Property OnIdle：TIdleEvent；其中：TIdleEvent是这样声明的：TIdleEv 阅读全文

摘要： 效果图: 核心代码: use Vcl.Themes;procedure TForm1.FormCreate(Sender: TObject);var i:integer; popItem:TMenuItem; begin//动态生成右键菜单与绑定事件 //TStyleManager样式管理器,不用声 阅读全文

摘要： 方法一:用API,此方法做出来的效果稍差,边缘会带有锯齿,强迫证患者谨用. procedure TForm1.FormCreate(Sender: TObject); var fhr: Thandle; begin fhr := CreateRoundRectRgn(0, 0, 195, 195, 阅读全文

摘要： //cxSplitter禁用移动和拖拽，只允许点击箭头按钮触发缩放（展开和收起） procedure TFraModleBase.cxSplitter3CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); beg 阅读全文

摘要： 转载:https://www.cnblogs.com/bolang100/p/9804938.html 自1995年Borland公司发布Delphi 1.0以来，Delphi受到很多开发者的亲睐，到1999年发布Delphi5，Delphi以其开发快捷、控件丰富、易于上手等优势吸引了众多的开发者， 阅读全文

摘要： 19.2 以前的用007大佬的这句 cxgrdbtblvwGrid1DBTableView2.DataController.Filter.Clear; 以后的用 DataController.findcriteria.text:=''; 阅读全文

摘要： TcxGrid默认在离开编辑状态时,会自动保存数据到数据库,但是如果只有一行数据的情况下,正常是退不出编辑状态的.比如下图,申领数量由50改到500后,数据行还是处理编辑状态,没有提交到数据. 解决方案一(推荐): DataControler --Options--dcoImmeditingData 阅读全文

摘要： function TForm2.getvalue(str: string): string; var strTem, resultStr: string; len, i: Integer; Flag: Boolean; //判断是否已有小数点 begin len := Length(Trim(str 阅读全文

摘要： 对于不用返回结果集的要用execsql反之则用open;insert ,update,delete就要用到execsql;select就要用open 阅读全文

摘要： 常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQuery Class TADODataSet Class TDBGrid Cl 阅读全文

摘要： 问题:dxBarManager1 里面添加了cxBarEditItem1 这是个文本框,运行可以输入内容,但是当焦点失去时,刚刚输入的内容没了.只能每次输完内容后一定要按回车才能保存内容.这里面所有能改变值的控件都是这样子的,有没有什么办法可以在控件去焦点时,自动保存刚刚的更改?我试过sendmes 阅读全文

摘要： 如下图所示,在TcxRadioGroup里选中数据后,再点其他地方,选项会自动跳回 [ 全部 ] 那一项. 我在百度上找了半天也没有资料. 后来发现是我在items里,把这三个项的type值改成了Boolean,其实只要保持默认的 Null即可. 2023-02-08 DEV的菜单控件TdxBarM 阅读全文