红鱼儿 - 博客园

[置顶] 加俄罗斯正品代购，免费获取源代码

摘要：俄罗斯的商品种类很多，其特点是：质量好、便宜、保质期长，绝无假货。俄罗斯的饰品、农副产品以及酒类、烟草、罐头食品和化妆品等都有很高的口碑。俄罗斯的零食和巧克力更有特色，许多品牌的口感都很好。此外，俄罗斯的毛皮制品也很有名，尤其是拥有400多年历史的莫斯科国立皮草及皮革学院所制作的毛皮制品，在质量、阅读全文

posted @ 2024-02-21 13:21 红鱼儿阅读(941) 评论(0) 推荐(1)

[置顶] 重建 Delphi 多层开发交流

摘要：点击链接加入群聊【Delphi 多层开发交流】：https://jq.qq.com/?_wv=1027&k=ToHI4SR7 阅读全文

posted @ 2022-08-22 13:25 红鱼儿阅读(1748) 评论(0) 推荐(0)

[置顶] 图文解说ChinaCock高德地图组件CCuniGUIAMap (一)

摘要：对于Web应用来说，集成地图功能，是客户非常需要的，将数据地图化显示，对用户了解其业务意义重大。基于此，国内运营地图的公司，也都开放了其SDK，让开发者集成到自己的项目中，满足用户的需求。对于Delphi开发者来说，做Web应用最好的方案是使用uniGUI，但是uniGUI只增加了支持Google 阅读全文

posted @ 2022-05-09 11:00 红鱼儿阅读(1520) 评论(0) 推荐(0)

uniGUI制作标签

摘要：有这样的需求，要实现这样的样式： 1.为了实现，写一个函数 function AddLabel(aJsName,aEventName,aID,aCaption:string):string; begin result:= Format('<a class="btnopbtn" style="colo 阅读全文

posted @ 2025-05-30 13:49 红鱼儿阅读(122) 评论(0) 推荐(0)

uniGUI运行期加载网站图标

摘要： procedure TuniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject); begin if FileExists(Self.StartPath + 'favicon.ico') then Self.Favicon.LoadFr 阅读全文

posted @ 2025-03-27 16:31 红鱼儿阅读(79) 评论(0) 推荐(0)

TUniComboBox.OnChangeValue事件不能正确触发

摘要：遇到个问题，升级到1597版本后，发现TUniComboBox.OnChangeValue事件不触发，造成界面不能按预期执行，后改到TUniComboBox.OnSelect解决，同时发现，当使用了OnSelect事件，则OnChangeValue正常触发。阅读全文

posted @ 2025-03-25 15:48 红鱼儿阅读(53) 评论(0) 推荐(0)

实现Android键盘自适应

摘要： unit Unit13; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Gr 阅读全文

posted @ 2025-01-22 08:56 红鱼儿阅读(146) 评论(0) 推荐(1)

CCAMap的定位方法增加权限请求

摘要： procedure TCCAMap.StartLocation(); begin {$IFDEF ANDROID} PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.ACCES 阅读全文

posted @ 2024-12-13 14:43 红鱼儿阅读(51) 评论(0) 推荐(0)

kbmMW 文件服务在android64平台下的bug

摘要： InternalLocalChecksum,这个函数返回大于64位的结果，前64位是正常的： function TkbmMWCustomFileClient.InternalLocalChecksum(Path:string):string; begin ... Result:=kbmMWDiges 阅读全文

posted @ 2024-11-21 16:38 红鱼儿阅读(66) 评论(0) 推荐(0)

Delphi 12实现模拟键盘输入

摘要：首先要引用Winapi.Windows单元，然后实现函数： procedure SimulateKeyPress(Key: Word); begin keybd_event(Key, MapVirtualKey(Key, 0), 0, 0); // 按下键 keybd_event(Key, MapV 阅读全文

posted @ 2024-11-14 08:41 红鱼儿阅读(391) 评论(0) 推荐(0)

优化CC高德地图定位方法

摘要：作者没有为申请定位增加权限处理，这样要在外部申请权限。我改成这样： procedure TCCAMap.StartLocation(); begin {$IFDEF ANDROID} PermissionsService.RequestPermissions([JStringToString(TJM 阅读全文

posted @ 2024-07-25 17:24 红鱼儿阅读(104) 评论(0) 推荐(0)

uniGUI uniPanel控件的Floating可能产生的问题

摘要： 1.当Floating=true,可能造成界面显示不正常，设置为False就好了 2.在uniGrid中增加工具栏，设置一个增加的按钮，当增加时，可能卡死界面，解决方法：增加记录后调用Post方法解决。阅读全文

posted @ 2024-07-05 15:32 红鱼儿阅读(130) 评论(0) 推荐(0)

发布 CapstoneDelphi 项目（反汇编引擎 SDK）

摘要： lsuper发布的，以下为他的发布内容：最近遇到一个需要反编译 PE32/32+ 的需求，搜了下 GH 发现全能的 Capstone，不过上面 Delphi 的实现都比较古老（如 Capstone4Delphi）且对不同平台支持的不好，遂借五一基于官方稳定版 4.0.2 手搓了一个，顺带练练手交叉阅读全文

posted @ 2024-06-03 11:21 红鱼儿阅读(382) 评论(0) 推荐(0)

公告