Delphi TBitMap 从 ImageList 到按钮的透明度
我正在尝试在代码下方创建一个带有透明位图图像的自定义图标按钮。 图标存储在连接到 ActionList 的 ImageList 中。 bitmap := TBitmap.Create; BmpOb…
Pascal - 分配给函数调用
我正在查看 CodeGear C++ Builder 头文件的源代码。在 Source/vcl/forms.pas 中，我找到以下代码行： procedure TApplication.CreateForm(InstanceCla…
从模块文件路径计算窗口句柄得到错误的结果
在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中，我试图从任务的模块路径获取正在运行的主任务的窗口句柄： type TFindWindowRec …
可以按名称更新 TRecord 成员
当您拥有记录成员的名称时，是否可以获取和设置 TMyRecord 的值？类似于RTTI。 我无法使用数组，因为成员可能具有不同的数据类型。 type TMyRecord = …
使用 Delphi GLScene 进行 GLSL 光线投射
我使用 GLScene Texture3D 演示的修改版本，探索如何使用 GLScene 着色器。我可以让着色器工作，但不能让光线投射算法（单通道）工作。 在FormCreate…
有 TCaptions 的 StringHelper 吗？
我可以添加一个单元来为 TCaption 提供 StringHelper 吗？ 使用 Edit1.Text.Trim、Edit1.Text.ToInteger 等比 Trim(Edit1.Text)、StrToInt 简洁得多(E…
在 Delphi 11 中为 THTTPClient 提供受信任的根 CA
我们希望使用 THTTPClient (Delphi 11) 安全地连接到内部网络服务器。 Web 服务器使用由（私有）公司根 CA 签名的 TLS 证书。 我们如何将（受信任的）…
如何在 Delphi 中使用自定义 debug.keystore？
我们经常需要在库（例如 Facebook SDK 或 Firebase）中设置 debug.keystore 指纹。 然而，据我了解，这个文件是唯一的，并且为每个用户甚至每个版本的…
浮点双精度常数被视为扩展
在 664 位应用程序中，如果我将浮点常量与从 StrToFloat() 获得的相同“值”的值进行比较，我会得到不同的结果。例如： procedure foo; const d1 = 0.…
如何获取应用程序所在屏幕的屏幕截图？
Closed. This question needs to be more focused. It is not currently accepting answers. 想要改进这个问题吗？通过编辑这篇文章来更新问题，使其…
如何检测特定的Delphi版本当前是否正在运行？
在 Delphi 11 Alexandria 中 Windows 10 上的 32 位 VCL 应用程序中，我尝试检测当前是否正在运行特定的 Delphi 版本。因此，我使用 Winapi.TlHelp32.…
FMX Windows 中的 SendInput 未释放 Shift 状态
我正在尝试使用 sendInput 函数在 EditBox 中键入一个大写字母，按下 Shift 键，然后发送一个字符，然后按 KeyUp 键发送该字符并发送 Shift 键。 Char…
如何将 Windows 驱动器盘符从我的改革路径中删除？德尔福或帕斯卡
进一步 简而言之，我有一个串联路径的字符串值，该字符串值是通过获取源目录并在目标目录中重新创建该树而形成的。例如 C:\SourceDir\SubDirA 变成 F:…
