第9篇 创建定制组件.pdf

第9 章 创建定制组件 对Delphi 研发人员来说，创建定制组件的前景非常好。Delphi 是用Object Pascal 实现的，包括了种 类繁多的组件，有些是用Object Pascal 实现的，另一些是ActiveX 组件。在本章中你可以建立几种组件， 其中有一个调试组件可用于跟踪代码并输出到日志文件、捕获代码路径，和对代码中一些具有不变性的条 件进行测试。本章的内容包括：使用组件向导过程、编译并测试组件、将组件和图标关联起来，以及包的 安装和管理。 许多类可以转换成组件，在设计时更加易于使用。组件可能小而简单，也可能大而复杂。TEdit 和TLabel 控件是基本组件的例子。而较大的商务组件能够对一整类问题提供完整的解决方案；例如 Word 和 Excel 就是大而复杂的组件。通常在创建大而复杂的组件时，需要创建许多较小的组件和子系统，然后使用这些 小的模块来构造所需的解决方案。本章相当于一块基脚石，它是更为强大的组件和应用程序的基础。 9.1 组件单元概览 要成功创建组件，关键是要认识到组件是类。对于好的类和好的组件来说，二者的规范是基本相同的。 TObject 类是所有类的祖先；而TPersistent 类是所有组件的祖先，它将组件与其他类区分开来。 TPersistent 将持久状态的概念引入到类中。即：在应用程序的多次运行之间，可以存储并再次获取类 的特性。区分组件与其他类的另一个因素是，组件可以在设计时进行修改；因为组件具有公开权限的接口。 并非所有组件都有精巧的公开接口，但大多数组件都有一些数据和事件特性，可以在设计时对其进行可视 化的修改。所有其他的类都是用代码编程修改，并且直到程序运行时才生效，但组件并非如此。对组件数 据特性的改变可以立即生效。在使用组件时，首先要知道定义组件的单元如何编写。 unit UEditConvertType; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TEditConvertType = class(TEdit) private { Private declarations } protected { Protected declarations } public { Public declarations } published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents(PKTools, [TEditConvertType]); end; end. 第9 章 创建定制组件 215 从代码列表中可以看到，组件单元与其他单元基本上没有区别。组件单元也有接口部分和实现部分， 其作用与非组件类相同。unit 和 uses 语句也是相同的。接口部分和实现部分均可有uses 子句。组件类在 接口类型部分定义。上述代码定义了 TEdit 的子类TEditConvertType 。类的四种访问区域都是可用的。私 有、保护、公有接口与通常的意义相同，公开接口包含了组件的事件和数据特性，组成了组件的设计时接 口。 最重要的不同是实现部分Register 过程的说明和定义。当使用Component | Install Component 菜单项安 装组件时，Delphi 将执行相应的Register 过程，该过程调用了RegisterComponents 过程。RegisterComponents 过程的第一个参数表示把组件添加到组件目标的哪一个属性页（这里是 PKTools ），第二个参数是 TComponentClass 类的数组，表示要注册的