创建一个火猴组件

Posted 2023-02-23

【中文标题】创建一个火猴组件

【英文标题】：creating a firemonkey component

【发布时间】：2013-10-07 01:10:41

【问题描述】：

我在 Delphi XE4 中使用 Firemonkey，但无法使用菜单项 Component -> New Component 创建新组件。 无论组件是 VCL 还是 Firemonkey 组件，还是我先创建一个包，结果都是一样的。 Delphi 中的 Tool Palette 似乎已被搜索并逐渐关闭，使其空无组件，并在选择祖先组件时显示“No Items available”的组件对话框。

我有两个单独的 Delphi XE4 安装，并且两者都出现了相同的症状。 似乎 Delphi 认为没有合适的基础组件来构建新组件。

【参考方案1】：

在代码中创建组件相当简单。

创建一个单位。 为您的组件添加代码。

添加注册过程。

procedure Register;
begin
  RegisterComponents('NewPage', [TMyComponent]);
end;

在实现部分添加注册声明。

在初始化部分添加对 RegisterFMXClasses 的调用。

implementation
uses FMX.Types;
...
initialization
  RegisterFMXClasses([TMyComponent]);
end.

创建一个包。

将设备添加到包装中。 右键单击包（在右上角面板中）并选择安装。

（注意：通常最好在测试时在运行时创建您的组件。您只需要在包相当稳定时执行此操作）。

【讨论】：

虽然这通常是正确的，但它并没有回答为什么标准的 delphi 方式通过组件 - 新组件不起作用的问题。