delphi - 创建一个火猴组件

Question

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

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

Answer 1

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

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

• 添加注册过程。

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

• 在 implements 部分添加 Register 声明。

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

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

• 创建一个包。

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

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