问题标签 [delphi-10.1-berlin]

我使用 TObjectList 来处理特定的标签列表。但是当我在 Try Final 中执行推荐的 .Free 时，它​​也会从列表中删除控件。

带有 3 个标签的简单示例：

在这种情况下，当我执行此代码时，我最终会丢失标签控件-它们已从表单中删除，并且在调试中我看到控件为零。

我不应该 .Free TObjectList 吗？我怎样才能释放 TObjectlist 并仍然保留控件？

以下是我的报告设计。

单击预览按钮时，每页显示一条记录。

如何让它显示多条记录，直到页面被完全占据，然后下一条记录将在下一页？我想要如下图所示的东西。

我在工具面板中找不到TfrxDesigner组件。我应该怎么办？我正在使用Embarcadero® RAD Studio 10.1 Berlin Version 24.0.22858.6822.

请善待，我在 google 上尽了最大努力，并找到了一些指导（也在 StackOverflow 上），但没有一个对我有用。

带有 FMX 进度条的 FMX 表格；

我只想将进度条颜色从难看的黄色更改为凉爽的天蓝色。

到目前为止，我已经在表单上放了一本样式书；

我在样式表设计器中添加了“progresscellstyle.htrack.hindicator”；

它是唯一一个甚至为我提供颜色选项（与“progressbarstyle treeitem”中的所有内容相比），并且该颜色不会影响我的进度条颜色。

拜托，如果你能这么好，下一步解码这个问题

我想在我的开发环境中使用 IB XE7 的桌面版本，但无法使连接正常工作。

最初的应用程序使用了完整的 IB 服务器版本，我现在想在成本更低的单 PC 类型应用程序上运行该应用程序，并选择了 IB 桌面版本。

Rad Studio 10.1 Berlin 在 W7 64 位虚拟机上运行。FireDac 是数据库连接组件。IB XE7 Desktop 是开发 PC 上的数据库服务器。

该应用程序的目标是具有 W7 32 位的 VM，该 VM 上有另一个 IB XE7 桌面。

我可以构建 32 位应用程序，在将 FireDac 连接组件协议字段更改为“本地”而不是 TCP/IP 后，它将连接到目标 PC 上的 IB XE7 桌面（在 VM 中运行 W7 32 位），这是我读到的堆栈溢出。

我无法工作的是开发环境中的数据库连接。

我首先安装了 64 位版本的 IB，然后将其删除并尝试了 32 位版本，结果相同。

在网上阅读了一些连接问题后，我尝试将“gds_db”和“localhost/gds_db”放在服务器名称字段中，但它仍然不起作用，尽管它确实改变了错误。

错误 - 服务器名称中没有任何内容

[FireDAC][Phys][IB] 数据库不可用。

将“gds_db”放入服务器名称后出错

[FireDAC][Phys][IB]无法完成对主机“gds_db”的网络请求。

未能找到主机。

在 hosts 文件或域名服务中找不到指定的名称。

首先尝试安装 64 位 IB，然后删除所有找到的 gsd 文件，然后删除注册表项，并安装 32 位版本。问题仍然存在。

注意：Database Workbench 5 将 OK 连接到同一 VM 上的数据库。

欢迎任何想法。

谢谢。

詹姆斯·F。

我正在尝试为我的 firemonkey 列表框创建一个自定义 ListBoxItem 样式。我需要在每个项目上有 2 个标签、2 个进度条和三个按钮。

三个按钮都应该对齐。其余控件应位于 2 行中。即我需要 1 个标签（左对齐）和 1 个进度条（右对齐）在顶部，另一个标签和进度条在底部。

例如

我可以让它看起来像下面这样。

即 1 行控件

但不是 2 行。我尝试使用 TGridLayout 和 TGridPanelLayout 并将控件放入其中，但使用这些控件在样式中不起作用。我得到了疯狂的结果。

这是我的一排控件样式表 我怎样才能让它做两行？

我尝试的另一件事是添加一个布局来容纳两行控件，然后为每一行添加一个单独的布局。

但是，如果我在布局顶部和另一个布局底部对齐，那么我在调整大小时会有间隙

例如

System.InvalidCastException尝试将接口作为参数从 .NET 传递到 DLL 时出现运行时错误。代码在 .NET 端失败，并且永远不会转移到 Delphi 端。

在 Delphi 中构造一个简单的 ActiveX 库 dll。两个自动化对象：MyContent和MyContainer. MyContainer有一个方法Add，它采用由 .IBase继承的接口IMyContent。IBase是一个IDispatch

类的实现无关紧要。为了使样本最小化，Add可以将实现留空。这是容器

...和内容

注册库并添加对控制台应用程序的引用。以下代码将产生运行时错误

如果我在 .NET 中创建一个实现的类，IBase我可以成功地传回接口。

这是来自 .NET 的 StackTrace

我使用本地 Android 服务TestService2制作了一些测试应用程序TestPro。在 TestPro 中只有一个按钮启动服务。当我单击按钮时，在设置 -> 应用程序 -> 运行中，我可以看到 1 个进程和 1 个服务。这意味着服务运行正常。之后我打开另一个应用程序，最好的方法是打开浏览器并开始冲浪（TestPro 变为非活动状态）。一段时间后，系统将终止 TestPro。如果我尝试激活程序，它将尝试启动但没有成功。系统询问等待或强制关闭没有响应的应用程序（LogCat 没有得到“Application.Initialize”）。在第二次开始 - 相同。第三次程序正常启动。有任何想法吗？ 这是应用程序代码：

在 Unit1.pas 中：

这是服务中的代码：

PS。柏林德尔福，SDK 24.3.3

我正在使用 Delphi 10.1 Berlin 开发 android 移动应用程序。并且我需要检查位置传感器是否未打开，然后我需要重定向到 android mobile 中的位置传感器设置。我怎样才能使用 Delphi 来实现？我见过使用JAVA的示例，但没有找到用于 Delphi 的示例。并提前致谢。

我正在使用 TMemIniFile 来存储配置，我需要按 alpha 顺序对这些部分进行排序。

为此，我创建了 TMemIniFile 的后代

但它需要访问Sections（实际上是FSections：TStringList，它是TMemIniFile的私有成员）

我创建了一个 Helper 类来通过属性公开该成员。但是 Delphi 10.1 不再支持这种行为

我开始将 TMemIniFile 复制/粘贴到我的单元，经过无尽的过程，我最终制作了整个 System.IniFile 的副本，只是为了访问 FSections。

我的问题是如何访问该 FSections 成员，而无需复制该单元中的所有内容以获得可见性

或者是否有另一种方法可以在保存之前对部分进行排序？（我只是从 FSections 调用 TStringList.Sort）