排序
OrangeUI+Delphi10.3开发的APP 全源码(20250410最新修改版已支持D11.3)
当时做微商的时候，使用OrangeUI+Delphi10.3开发的辅助下单APP，现在已经不用了，需要的可以购买研究下20250410最新修改版已支持D11.3使用了SQLite数据库沉浸式标题栏WebBrowser与JS交互post提...
11天前delphi fmx zxing原生不使用外部库二维码，条码扫描速度很快
ZXing.Delphi 是一个原生 Object Pascal 库，它基于众所周知的开源条形码库：ZXing（斑马线）。 该端口基于 ZXing 的 .Net Redth 端口和 Java 端口。 这是我认为的第一个原生 FireMonkey 条形码...
1个月前动态创建的ListBoxItem中Label文本的修改
在Delphi FMX中，当尝试通过代码动态查找并修改嵌套在多个布局（Layouts）中的Label控件文本时遇到问题。该问题涉及到从ListBoxItem开始，经过三层结构（ListBoxItem -> Layout -> Label...
1个月前在Delphi的TWebBrowser中使用EvaluateJavaScript插入文本值的问题
在使用Delphi FMX的TWebBrowser组件向网页表单插入数据时，遇到无法正确设置HTML输入元素值的问题。该应用运行于Android平台，目标是向类型为文本的输入框（id为txtCPF）插入字符串值。 尝试通...
1个月前如何在Delphi Android应用中使用简单的Intent启动另一个Android应用
要在Delphi编写的Android应用中通过Intent启动另一个应用，您需要确保正确设置权限并在代码中使用正确的Intent。以下是一个简单示例，展示了如何实现这一点。步骤1：设置权限首先，您需要确保在...
1个月前解决Delphi 12中SurfaceView总是显示黑色背景的问题
在使用Delphi 12为Android开发应用时，遇到SurfaceView仅显示黑色背景而无法正常绘制图形的问题。通过分析代码，问题的根源在于paint对象的样式设置不正确。将paint.setStyle(TJPaint_Style.Jav...
1个月前
Delphi12支持全屏显示启动界面的styles.xml
<resources xmlns:android='http://schemas.android.com/apk/res/android'> <style name='AppTheme' parent='@android:style/Theme.Material.Light.NoActionBar'> <item name='a...
1个月前Delphi 12.2 Fmx Edit 大字的时候显示不全处理
//变形处理 edit_my_android.ControlType:= Platform; /变形处理 edit_my_android.ControlType:= Platform
1个月前【Delphi 12】FMX 如何设置 TVertScrollBox的滚动位置，使其回到顶部原点
在手机APP开发中， 纵向的滚动框非常实用，可以说是必不可少的控件，甚至为了自适应不同手机屏幕大小，使用滚动框是非常方便的懒人方法。 当我们使用TVertScrollBox控件时，发现除了控件...
1个月前Delphi FMX 获取程序版本
在 Delphi FMX 中，可以通过以下方法获取当前应用程序的版本号：使用 IFMXApplicationService 接口delphi复制uses FMX.Platform; procedure GetAppVersion; var AppVersion: string; begin AppV...
1个月前Delphi APP运行强制竖屏（或横屏）显示
在开发电视广告机的时候，电视是竖着放的，所以要app竖屏运行，我的电视没有自动旋转功能，就加入如下强制竖屏运行：procedure SetScreenOrientation; var ScreenService: IFMXScreenService; b...
1个月前如何在 Delphi 12.1 中使用 Skia 加载 SVG 文件到 TBitmap 并保留透明度
在 Delphi 12.1 的 32 位 VCL 应用程序中，如何通过 Skia 将 SVG 文件加载到 TBitmap 并保留透明度？Skia 是 Delphi 12 自带的图形库，但在加载 SVG 文件时可能会遇到问题。 通过 TBitmap.Sk...
2个月前
FMX 做一个带动画的虚线边框
效果如图所示： Rectangle1.Stroke.Kind := TBrushKind.Solid; Rectangle1.Stroke.Dash := TStrokeDash.Dash; Rectangle1.Stroke.Color := TAlphaColors.Red; Rectangle1.Stroke.Thickness := ...
2个月前标签
排行
