判断返回操作系统是否是64位 函数
//--判断返回操作系统是否是64位 //--淡淡的风整理QQ16643506 function IsWin64: Boolean; var Kernel32Handle: THandle; IsWow64Process: function(Handle: Windows.THandle; var Res: Windows...
Delphi 历代版本 下载地址 合集
整理作者:渣渣皮2025.02.06更新这是我在群里的文件基础上,继续增加并整理的资料,原整理者未知,感谢大佬此页面记录包含各 Delphi 历代版本官方的链接地址下载,最下面还有官方其它资源和部分精简...
玩转控件系列–01 Style组件之初识Style控件组
StyleControls 是一个稳定、功能强大的软件包（超过 100 个组件），它使用经典绘图、系统主题、GDI+ 和 VCL 样式。此软件包包含扩展标准 VCL 控件的独特解决方案，还具有许多独特的高级控件，...
FMX 下取得 字符串在画布上的宽度的函数
使用OrangeUi里面的函数：需要单元：uSkinBufferBitmap；function GetStringWidth(const AStr:String;ADrawRect:TRectF;ADrawTextParam:TDrawTextParam=nil):Double;overload; function CalcStr...
FMX 做一个带动画的虚线边框
效果如图所示： Rectangle1.Stroke.Kind := TBrushKind.Solid; Rectangle1.Stroke.Dash := TStrokeDash.Dash; Rectangle1.Stroke.Color := TAlphaColors.Red; Rectangle1.Stroke.Thickness := ...
TParallel 在 Delphi 中的使用与 CPU 使用率问题
TParallel 是 Delphi 中用于并行处理的一个强大工具，它允许开发者轻松地将串行任务转换为并行任务，从而充分利用多核 CPU 的性能。然而，在使用 TParallel 时，可能会遇到一些性能问题，尤其...
Delphi 12.1 的 CompilerVersion 与版本区分
在 Delphi 开发中，CompilerVersion 是一个重要的常量，用于标识当前编译器的版本。对于 Delphi 12.1，开发者可能需要区分它与 Delphi 12.0 的差异，尤其是在条件编译或运行时版本检查时。De...
如何将 DBGridEh 字段的时间格式从 24 小时制改为 12 小时制
问题在 Delphi 10.3 Rio 中使用 DBGridEh 控件时，默认的时间格式是 24 小时制。如果需要将其改为 12 小时制（带 AM/PM 显示），可以通过设置字段的显示格式来实现。解决方案1. 使用 DBGridE...
如何在 Delphi 12 中通过代码更改默认样式和系统颜色
在 Delphi 中，样式编辑器允许用户在“字体”、“颜色”和“系统颜色”三个部分中分别调整预定义的颜色。当启用主题时，我们希望能够通过代码实现类似的更改，例如将 clHighlight 设置为 clRed...
在 Delphi 12 中使用 FireDAC 时遇到链接错误
使用 Delphi 12 开发 Android 移动应用时，开发者使用了 FireDAC 数据库组件，通过 SQLite 存储数据，并实现了 FDSSecurity 组件进行数据加密。在 Delphi 11 中可以正常运行，但在 Delphi 12 中...
如何在 Delphi 12 中启用严格的 Int32/Int64 类型兼容性检查
在将大量类从 32 位的 Integer 迁移到 64 位的 Int64 时，希望编译器能够在传递 32 位的 Integer 给显式定义为 Int64 的过程时抛出异常。由于 Int32 与 Int64 兼容，默认情况下不会...
如何让 Delphi Datasnap 服务器识别并接受 OPTIONS 请求
在使用 Delphi 的 Datasnap 服务器时，客户端在发送 GET 或 POST 请求之前会先发送 OPTIONS 请求。然而，默认情况下，Datasnap 服务器无法识别并处理 OPTIONS 请求。 通过处理 WebModuleBefor...
如何在 Delphi 12.1 中使用 Skia 加载 SVG 文件到 TBitmap 并保留透明度
在 Delphi 12.1 的 32 位 VCL 应用程序中，如何通过 Skia 将 SVG 文件加载到 TBitmap 并保留透明度？Skia 是 Delphi 12 自带的图形库，但在加载 SVG 文件时可能会遇到问题。 通过 TBitmap.Sk...
