Delphi提供了丰富的VCL组件供编程人员使用,同时还允许编程人员根据实际需要进行自定义组件的编写。
组件的代码编写和我们平常写的类很相似,但也有几点不同,一个是需要从TComponent类继承而来,另一个是要使用
Published关键字定义我们想要出现在对象观察器中的属性是事件,再一个就是我们要把这些代码添加到一个设计包中,之后通过对这个包进行编译和安装来发布我们编写的组件。
组件中事件的定义和属性定义一样,使用
Property关键字,事件的类型可以使用Delphi标准的事件类型如
TNofifyEvent,或者是自已定义一个事件类型,其定义方式如下:
Type
TComponentEvent = procedure(Params) of object ;
TComponentEvent = procedure(Params) of object ;
其中
Params是根据组件需要定义的一个或多个参数,可以是任何类型的。
下面我们就以具体的实例来讲解如何在Delphi中编写自定义组件。首先在Delphi中新建一个包,然后在包中添加一个单元文件,在单元文件中定义如下组件类
Type
TMyComponentEvent = procedure (Sender: TObject) of object ;
TMyComponent = class (TComponent)
private
FMyProperty: String;
FMyEvent: TMyComponentEvent;
TMyComponentEvent = procedure (Sender: TObject) of object ;
TMyComponent = class (TComponent)
private
FMyProperty: String;
FMyEvent: TMyComponentEvent;