【Delphi】扩展现有组件创建新的 FireMonkey 组件（步骤一）

本例中演示将TLabel控件扩展成TClockLabel新控件。具体如下：

步骤 1 - 使用新建组件向导创建组件

1. 菜单选择 Component -> New Component。
2. 在新建组件向导的第一页，选择 FireMonkey for Delphi ：

3. 在 “Ancestor Component ”页面，选择 TLabel 作为新组件的祖先：

4. 在 “New Component（新建组件）”页面中，输入 TClockLabel 作为类的名称。在Unit Name字段中，输入 C:\Users\<user>\Documents\Embarcadero\Studio\Projects\ClockLabel.pas 作为要创建文件的名称：

注意：

        请记住指定的路径。

5. 在Create Unit页面，选择Install to New Package：

6. 在New Package页面，将 ClockLabel 设置为要生成的新软件包名称：

7. 向导将打开“<单元文件>”另存为对话框，要求确认生成单元文件的名称和路径： 

8. 现在您已创建了新软件包项目。选择 “是”，确认此软件包用于 FireMonkey：

9. 下面的信息确认了新组件已在 RAD Studio 中构建、安装和注册：

10 右键单击 Project Manager的项目组，从上下文菜单中选择Add New Project，创建新的Multi-Device Application应用程序。然后选择Blank Application应用程序：

11. 将新的多设备应用程序保存为 TestClockLabel.dproj，将单元保存为 TestClockLabelUnit.pas。右键单击 “Project Manager ”中的项目组项，从上下文菜单中选择 “另存项目组”，将项目组保存为 ClockLabelProjectGroup.groupproj。请注意，该命令首先依次显示要求保存项目组中每个项目的对话框，最后显示保存项目组的对话框。

12.现在，当窗体设计器中显示窗体 1 时，您就可以在工具调板上看到 TClockLabel 组件。但是，当你把 TClockLabel 放到窗体设计器上时，你可能会注意到 TClockLabel 看起来就像 TLabel。这是因为您还没有实现任何新功能。

13. 接下来，需要实现 TClockLabel 组件。

参见：《Delphi】扩展现有组件创建新的 FireMonkey 组件（步骤二）》