随笔分类 - Delphi学习笔记
摘要：这个操作最好是在项目设计之初确定好此方案. 一.先设置项目图标. 项目- 选项-然后找到图标选项.过程我就不写了.总之保存好图片 二.创建一个TFrom模板.然后在它的create事件中插入 Icon := Application.Icon; 注意不是TFrame,这个是容器,它没有图标属性. 三.
阅读全文
摘要：设计界面: 功能设计: 1.按下窗体右上角的关闭按钮时,程序隐藏 2.按下ctrl+~组合键时,程序隐藏或者显示 3.程序最多支持三组按键更替,PressCom指定的按键会被替换为TargetCom按键,当某一组任意值为空是,该组不执行更替任务 4.当scGPCheckBox1勾选时,程序才执行更替
阅读全文
摘要：看一下代码: procedure TfraModuleCPCK.AutoCPRK; begin var TypeDJ:=0; if DeptID=0 then TypeDJ:=StrToInt(dm.GetSNPrefix('其他入库','ID')) else TypeDJ:=StrToInt(dm
阅读全文
摘要：RightPnl默认为隐藏状态,仅在需要的时候显示. 在运行时设置RightPnl.visible:=true时,RightPnl发生闪烁和偏移的情况. 结构图: 设计界面 运行时的效果: 运行时前一两秒,RightPnl出现 短暂闪烁和偏移,最后正常显示在右侧. 尝试把执行代码注释掉,仅保留Rig
阅读全文
摘要：Default 是 Delphi 的一个内建函数/关键字，用于获取任何类型的默认值（零值）。 使用 Default 的优点： 更清晰表达"清零"的意图 即使将来记录增加字段，也不需要修改 代码更简洁 // Default() 返回指定类型的"零值"或"空值" var I: Integer; S: s
阅读全文
摘要：Result 概要: Result 是 Delphi 编译器自动为有返回值的函数创建的局部变量 它的类型自动匹配函数的返回类型 不需要手动声明，直接使用即可 这是 Delphi/Object Pascal 语言的核心特性之一 对于记录类型，Result 就是一个完整的记录实例，可以直接访问其字段 下
阅读全文
摘要：先看效果图 设置cxgrid视图的OnMouseDown事件即可实现 procedure TfraModuleCPRK.GridView2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Intege
阅读全文
摘要：1.首先设置OptionsView.footer:=true 2.双击GridView1视图,转到 总结 - 页脚 页面,然后点添加 3.设置footer 说明,不要设置FieldName. Kind选择你需要的功能 4.设置 "合计"字样(可选,可改) 按上面1-3的步骤选择一个用不到的列(一般选
阅读全文
摘要：前期的实现原理,看这里: delphi cxgrid + PopupMenu 创建智能过虑功能的菜单 - 一曲轻扬 - 博客园 (cnblogs.com) procedure TfraModuleCPRK.p2Click(Sender: TObject); begin var val := Quot
阅读全文
摘要：简单来说： DataController：负责数据和逻辑（数据从哪里来、如何排序、筛选、分组） Controller：负责界面和交互（用户点哪里、焦点在哪、选择哪些行）
阅读全文
摘要：一.下拉菜单. 需求:字段为Integer类型,但要求显示出文本内容.如下图,仓库实际存储的是仓库ID,显示的却是仓库名称. 实现方法: procedure TfraModuleCPRK.SetupWarehouseLookup; begin if not Assigned(CK) or not A
阅读全文
摘要：1.数据表设计: 要点: [用户头像]字段选择 OLE对象 [用户头像]不要直接在数据库中插入对象,因为会被套壳(如下图所示),程序要想再读出来很困难 理论上应该由程序上传到数据库,而不是直接在数据库里添加 直接插入会被加壳 下面这种才对正确的数据格式 程序界面设计: 给用户设置一个默认的头像(如下
阅读全文
摘要：//即使同时按下了 Ctrl + Shift、Ctrl + Alt 等组合键，条件依然为 True. procedure TEditUser.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCt
阅读全文
摘要：效果图: TscGPDBComboBox控件虽然名字里面带了DB,但我没有发现它能带来什么效果.我设置好了这两个属性,按理来说就应该自动把数据填充进去的,但是我运行后并没有效果.如果是我设置错了,麻烦指点一下. 然后我只能手动创建菜单了. while not FDQuery1.Eof do begi
阅读全文
摘要：设计界面: 需求说明: 1.上面是订单总表,下面是订单明细, 2.总表gridview设置了OnFocusedRecordChanged 事件,即当用户选择总表中的记录时,下面会显示出此订单下的所有明细 3.日期定位可以让用户快速的设置筛选日期区间 实现过程: 一.以下代码实现目标2. proced
阅读全文
摘要：效果: 第一步.与cxgrid相关联的TFDQuery控件需要确定"缓存更新"属性处于关闭状态. 说明:如果开启缓存更新,则需要手动执行 FDQuery1.ApplyUpdates 第二步.设置gridview-OptionsBehavior-EditMode属性.它有四个选项,如下图所示: 这四个
阅读全文
摘要：如果我不把UnitName 改成UnitName1,在With内部会得到一个意料之外的值. 分析: with内部的UnitName 其实指向的是system单元下的TObject.UnitName,然后在当前语境下,指向的就是fq.UnitName,而不是你在上面声明的UnitName.所以它才会返
阅读全文
摘要：我们在基类单元中声明了GetData一个方法并在Create事件中调用GetData方法. 注意此时GetData在声明时,使用的是virtual方法,说明它是不再继承TFrame中的同名过程,而是新增的方法 另外Create和Destroy事件使用的是override方法,说明它是继承的父类同名方
阅读全文
摘要：type TFrame3 = class(TFrame) private { Private declarations } public { Public declarations } function test():string; end; implementation {$R *.dfm} {
阅读全文
摘要：Delphi 窗体间通信之事件回调模式 - 一曲轻扬 - 博客园 (cnblogs.com) 书接上例.这回我们将使用接口回调模式,来完成窗体间的通讯问题 核心套路： 定义接口（在弹出窗体单元） 实现接口（在主窗体/框架单元） 设置回调（创建时连接） 触发回调（事件发生时） 具体实现代码如下: 第一
阅读全文
浙公网安备 33010602011771号