创建一个火猴组件

Question

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

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

Answer 1

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

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

• 添加注册过程。

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

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

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

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

• 创建一个包。

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

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