第09章_创建定制组件

《第09章_创建定制组件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第9章创建定制组件private{Privatedeclarations}protected第9章创建定制组件{Protecteddeclarations}public{Publicdeclarations}published对Delphi研发人员来说，创建定制组件的前景非常好。Delphi是用Object{Publisheddeclarations}Pascal实现的，包括了种类繁多的组件，有些是用ObjectPascal实现的，另一end;些是ActiveX组件。在本章中你可以建立几种组件，其中有一个调试组件可用procedureRegister;于跟

2、踪代码并输出到日志文件、捕获代码路径，和对代码中一些具有不变性的implementation条件进行测试。本章的内容包括：使用组件向导过程、编译并测试组件、将组procedureRegister;件和图标关联起来，以及包的安装和管理。begin许多类可以转换成组件，在设计时更加易于使用。组件可能小而简单，也RegisterComponents('PKTools',[TEditConvertType]);end;可能大而复杂。TEdit和TLabel控件是基本组件的例子。而较大的商务组件能end.够对一整类问题提供完整的解决方案；例如Word和Excel就是

3、大而复杂的组件。通常在创建大而复杂的组件时，需要创建许多较小的组件和子系统，然后从代码列表中可以看到，组件单元与其他单元基本上没有区别。组件单元使用这些小的模块来构造所需的解决方案。本章相当于一块基脚石，它是更为也有接口部分和实现部分，其作用与非组件类相同。unit和uses语句也是相强大的组件和应用程序的基础。同的。接口部分和实现部分均可有uses子句。组件类在接口类型部分定义。上述代码定义了TEdit的子类TEditConvertType。类的四种访问区域都是可用的。9.1组件单元概览私有、保护、公有接口与通常的意义相同，公开接口包含了组件的事件和数据

4、特性，组成了组件的设计时接口。最重要的不同是实现部分Register过程的说明和定义。当使用Component要成功创建组件，关键是要认识到组件是类。对于好的类和好的组件来说，

5、InstallComponent菜单项安装组件时，Delphi将执行相应的Register过程，二者的规范是基本相同的。TObject类是所有类的祖先；而TPersistent类是所该过程调用了RegisterComponents过程。RegisterComponents过程的第一个参有组件的祖先，它将组件与其他类区分开来。数表示把组件添加到组件目标的哪一个属性页（这里是PKToo

6、ls），第二个参TPersistent将持久状态的概念引入到类中。即：在应用程序的多次运行之数是TComponentClass类的数组，表示要注册的组件。该元类数组表明Register间，可以存储并再次获取类的特性。区分组件与其他类的另一个因素是，组件过程可用在一个语句中注册多个组件。例如：如果UEditConvertType单元包可以在设计时进行修改；因为组件具有公开权限的接口。并非所有组件都有精含多个组件——TEditConvertType和TMaskedEditConvertType，那么可以将巧的公开接口，但大多数组件都有一些数据和事件特性，可以在

7、设计时对其进所有的类名添加到数组中并安装到PKTools面板上。行可视化的修改。所有其他的类都是用代码编程修改，并且直到程序运行时才生效，但组件并非如此。对组件数据特性的改变可以立即生效。在使用组件时，RegisterComponents('PKTools',[TEditConvertType,首先要知道定义组件的单元如何编写。TMaskedEditConvertType]);unitUEditConvertType;要记住的关键是：通过把组件分层，然后逐层的添加功能，即可对组件的interface功能进行增量和迭代式的修改。在一个组件中包含过多的功能是不

8、必要的。uses虽然从零开始创建组件并非令人畏惧的任务，但是启动新组件最容易的途Windows,Messages,SysUtils,Classes,Graphics,Controls,径是使用组件向导过程。下节将快速的浏览一下组件向导，然后演示一个新组Forms,Dialogs,件的例子（在9.5节“编译并测试组件”中，您可以建立并测试一个StdCtrls;TEditConvertType组件）。typeTEditConvertType=class(TEdit)216Delphi6应用开发指南第9章创建定制组件9.2使用组件向导unitULabelExte

9、ndedFont;//ULabelExtendedFont.pas