一曲轻扬

摘要： 随便比画了一下，零代码，效果如下。 这是设计图,用到了五个控件， 1.DEV的cxImageList,这个可以随便换，我只是懒得找图标而已。 2.scGPPanel 3.scSplitView这个可有可无，看你需求吧，这个控件我之前有写过两篇教程，有兴趣的可以搜索 4.scToolBar工具条 5. 阅读全文

摘要： 这本书可以在 Delphi研习社②群 256456744 的群文件里找到. 书名: Delphi 11 Alexandria Edition.pdf ●P225-254 类是抽象的,变量是类的具现. 类在定义时,只是定义了它有这些属性和方法,不会把实际代码写在里面,但是必须要在同一个单元里完成(实际 阅读全文

摘要： 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, 阅读全文