随笔分类 - Delphi
摘要：此程序是写的一个Demo, 包含一个主窗体, 一个数据模块. 1. 主窗体设计如下: 提供一个初始化, 一个查询, 一个释放. 初始化用于数据模块实例化, 查询就是执行SQL语句, 释放就是释放数据模块实例. 其它没啥说的. 窗体上方是一个RadioGroup, 丢了四个按钮, 也就是四个数据库类型
阅读全文
posted @ 2022-01-19 12:58
麦麦提敏
摘要：TFDConnection: FetchOptions.Mode 设置为fmAll, 返回全部结果, 否则默认只返回前50条, 效果与open以后再执行FetchAll一样 ResourceOptions.SilentMode 设置为True, 就不需要FDGUIxWaitCursor之类的东西了,
阅读全文
posted @ 2021-12-22 10:21
麦麦提敏
摘要：首先要切换到安卓平台下： 第一步： Project — Options — Application — Uses Permissions: 注意如下图：产生费用的功能 要谨慎勾选——打电话、发送短信… 第二步： 引用权限单元UnitPermission：(Alt+F11) unit UnitPerm
阅读全文
posted @ 2021-12-21 22:56
麦麦提敏
摘要：Delphi XE5下，TMainMenu和TPopupMenu不可用，那么如何支持Android的菜单呢？ 首先在窗体上放置一个TPanel，在其上放置一个TListBox充当菜单项，对每一个Item的OnClick事件编写具体的动作。如下图： 由于要模拟菜单键，所以Panel放置在左下角，且设置
阅读全文
posted @ 2021-12-21 14:13
麦麦提敏
摘要：在FMX下，Application不再有MessageBox函数，只能使用MessageDlg函数，写法如下： procedure TfrmMain.btncloseClick(Sender: TObject); begin if MessageDlg('是否退出？', TMsgDlgType.mt
阅读全文
posted @ 2021-12-21 13:55
麦麦提敏
摘要：原始文章：Delphi XE5 for Android （二） 按照Embarcadero的说法：Windows平台只能使用VCL，Windows、iOS和Android都可以使用FMX，并且VCL和FMX不能同时在一个程序中。FMX的用法与VCL有一定的差异，先从最简单的说起： 应用程序的关闭退出
阅读全文
posted @ 2021-12-21 13:52
麦麦提敏
摘要：TCXGRID控件: 属性: ActiveLevel: 当前层 BorderStyle: 窗口风格 Color: 颜色 FocusedView: 当前View; Font: 字体 LevelTabs: 类似PageControls头设置 CaptionAlgnment:标题对齐方式 Images:图
阅读全文
posted @ 2021-12-21 12:41
麦麦提敏
摘要：1. 添加 MaskEdit 控件。 2. 选中TextEdit控件，查看控件属性。 3. 展开Properties属性项，找到Mask属性项。 4. 设置Mask属性项的EditMask属性值为：(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[
阅读全文
posted @ 2021-12-21 12:18
麦麦提敏
摘要：1. 安装并启动虚拟机，Delphi IDE是无法检测到的，需要用ADB联接一下： c: cd C:\Users\Public\Documents\Embarcadero\Studio\21.0\CatalogRepository\AndroidSDK-2525-21.0.40680.4203\pl
阅读全文
posted @ 2021-12-20 12:14
麦麦提敏
摘要：cxgrid显示海量数据 在默认情况下，cxgrid显示几万条以上的数据会很慢。怎么办？ 交下面的属性设为TRUE以后，速度飞快。 但速度是快了，自动计算列的合计值这些功能却失效了，正所谓有得必有失！
阅读全文
posted @ 2021-12-17 12:13
麦麦提敏
摘要：frxReport 控件加入自定义函数并显示金额大写 1. dConnector的 DataModuleCreate 中加入以下代码 procedure TdConnector.DataModuleCreate(Sender: TObject); begin // frpAmbKrmTalon.Ad
阅读全文
posted @ 2021-12-10 13:31
麦麦提敏
摘要：不支持 Filter = 'name like' 需要模糊查询只有' name = A*' 匹配只能从第一个字母开始，无法达到要求.后来在OnFilterRecord中解决 TQuery.Filtered := False; TQuery.Filtered := True; 会触发OnFilterR
阅读全文
posted @ 2021-12-08 17:30
麦麦提敏
摘要：Delphi ADOQuery的速度优化 1.ADOQuery.Update;ADOQuery.Delete;不用设置属性. 2.locktype指定用户打开数据集时对数据集的锁定级别:ltUnspecified 未指定锁定级别ltReadOnly Read-only 只读ltPessimistic
阅读全文
posted @ 2021-12-05 09:29
麦麦提敏
浙公网安备 33010602011771号