一曲轻扬

摘要： type Ptest = function(Str: string): string of object; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var 阅读全文

摘要： 今天群里有网友说Edit不想通过回车键执行查询,也不想每次change都执行查询,我就提出了这个方案.GetIdleTime是获取键盘与鼠标距离上次输入的时间. 这里声明了两个全局私有变量i和flg,其中i不是必须的,只是用来观测时间值. var i: Cardinal; flg: Boolean 阅读全文

摘要： 这本书可以在 Delphi研习社②群 256456744 的群文件里找到. 书名: Delphi 11 Alexandria Edition.pdf 先置顶一下大佬的话 致看到这里的朋友一些提示: 书上的内容有些看不懂很正常,也不要着急,可以往下找找,作者可能在下面给出了答案,不要一有问题就到处找资 阅读全文

摘要： 这本书可以在 Delphi研习社②群 256456744 的群文件里找到. 书名: Delphi 11 Alexandria Edition.pdf P30: 在声明一个函数或者过程时,在其上方用 /// 或者 {! 插入注释,在其它地方使用时,把鼠标悬停在这个函数或者过程上面,会显示出这些注释 D 阅读全文

摘要： 效果图: 设计图: scSplitView设置: opened:false; openedwidth:150;(按你自己需求) compactwidth:35;(确保只能看到图标即可) 设计技巧:　compactwidth先设置成全尺寸,等全部设计完成后,再调成合理值. 需要用到两个事件.一个是on 阅读全文

摘要： 一.先说效果吧,放置的位置不一样,显示出来的效果也不一样 然后效果是这样的: 注意 位置标记1 按钮的位置 . 当DisplayMode := scsvmOverlay时,会遮挡 TscSplitView范围(OpenedWidth)以内的所有对象, 当DisplayMode := scsvmDoc 阅读全文

摘要： 当物料类型为 刀具仓时,单位 自动修改为 粒 当物料类型为 原料仓时,单位 自动修改为 公斤 反之亦然. 这是两个相互联动的控件,如果直接写的话,会直接死循环. 如何做到只让控件修改一次就不再联动的目的呢? 我们需要一个计数器来做辅助. 设置一个全局变量 ChangComCount:integer; 阅读全文

摘要： 转载自: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以其开发快捷、控件丰富、易于上手等优势吸引了众多的开发者， 阅读全文