红鱼儿

2021年6月12日

为Android做一个ShowModal窗口

摘要:大家知道,用Delphi实现一个Form,并用ShowModal显示出来,是非阻塞的,如果我们需要类似阻塞的效果,该如何实现呢? 1.先建一个Form,跟通常的情况一样。 2.为Form实现具体的内容,这按你的需要了。 3.在窗口的单元中实现一个方法,用来显示这个窗口: implementation 阅读全文

posted @ 2021-06-12 16:21 红鱼儿 阅读(114) 评论(0) 推荐(0) 编辑

2021年6月8日

App给自己推送消息

摘要:procedure TMainDataModule.SendNotification(const ATitle, AAlertBody, AData: string); var mNotice: TNotification; begin if NotificationCenter1.Supporte 阅读全文

posted @ 2021-06-08 11:48 红鱼儿 阅读(70) 评论(0) 推荐(0) 编辑

2021年5月29日

Delphi支持直接集成AAR

摘要:https://quality.embarcadero.com/browse/RSP-20000 Delphi 如果支持集成AAR,那对于集成第三方的SDK,将变的容易,可惜现在不支持,上面已经有人提出这样的需求,如果你也想一起去投票吧,让官方能重视并实现他。 阅读全文

posted @ 2021-05-29 16:40 红鱼儿 阅读(129) 评论(0) 推荐(0) 编辑

2021年5月26日

【译】应用Delphi 表达式引擎

摘要:原文地址:https://blogs.embarcadero.com/using-delphis-expressions-engine/ Delphi RTL包含一个非常强大的表达式引擎,它虽然是Live Bindings体系结构的基础之一,但是可以用来处理表达式的单独引擎,本文对此将做入门介绍。 阅读全文

posted @ 2021-05-26 07:02 红鱼儿 阅读(137) 评论(0) 推荐(0) 编辑

2021年5月23日

uniGUI 应用捕获按键

摘要:MainForm有个属性MonitoredKeys,用来处理捕获用户在浏览器中的按键。 具体的用法: 如下图: 然后在Keys定义要捕获的按键,下图我定义一个按钮 27,即ESC键: 之后,我们就可以MainForm的OnKeyDown事件中来根据用户的按键来写代码了: procedure TMai 阅读全文

posted @ 2021-05-23 12:54 红鱼儿 阅读(113) 评论(0) 推荐(0) 编辑

2021年5月22日

kbmMemTable.Undo用法

摘要:这是一个非常易用的方法,用来取消当前记录的操作。 为了让Undo工作,首先要设置EnbaleVersioning=True。 q: TkbmMemTable; 假设我们有一个q内存表,然后增加一条记录,当前记录指向他,调用q.Undo,就会取消刚才增加的这条记录。 阅读全文

posted @ 2021-05-22 16:55 红鱼儿 阅读(36) 评论(0) 推荐(0) 编辑

2021年5月20日

DPush重大利好消息!288元即可使用!

摘要:DPush快速让你的App实现离线消息接收! 阅读全文

posted @ 2021-05-20 13:46 红鱼儿 阅读(104) 评论(0) 推荐(0) 编辑

2021年5月19日

没有从当前控件中捕获到字段而无法查询!

摘要:这是项目中的一个提示,今天同事又遇到这样的问题,在一个方法中,Lookup找不到字段,经查,原来下面这段代码,aDataSet就是nil的,所以aField也是nil. if TcxGridTableView(Components[i]).Columns[j].Properties is TcxPo 阅读全文

posted @ 2021-05-19 11:00 红鱼儿 阅读(41) 评论(0) 推荐(0) 编辑

2021年5月17日

一秒可生成500万ID的分布式自增ID算法—雪花算法 (Snowflake,Delphi 版)

摘要:这是全能做的分布式自增ID算法,转贴过来,向他的分享表示感谢。 原文地址:一秒可生成500万ID的分布式自增ID算法—雪花算法 (Snowflake,Delphi 版) 概述 分布式系统中,有一些需要使用全局唯一ID的场景,这种时候为了防止ID冲突可以使用36位的UUID,但是UUID有一些缺点,首 阅读全文

posted @ 2021-05-17 13:33 红鱼儿 阅读(147) 评论(0) 推荐(0) 编辑
测试delphi支持的线程锁的效率

摘要:TCriticalSection TMutex TSpinlock TMonitor 直接上图:运行结果如下: 如 代码如下 : unit Unit5; interface uses System.SysUtils, System.Types, System.UITypes, System.Clas 阅读全文

posted @ 2021-05-17 13:19 红鱼儿 阅读(146) 评论(0) 推荐(0) 编辑