本例中演示将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 组件(步骤二)》