Delphi中编写自定义组件

Delphi提供了丰富的VCL组件供编程人员使用，同时还允许编程人员根据实际需要进行自定义组件的编写。

组件的代码编写和我们平常写的类很相似，但也有几点不同，一个是需要从TComponent类继承而来，另一个是要使用 Published关键字定义我们想要出现在对象观察器中的属性是事件，再一个就是我们要把这些代码添加到一个设计包中，之后通过对这个包进行编译和安装来发布我们编写的组件。

组件中事件的定义和属性定义一样，使用 Property关键字，事件的类型可以使用Delphi标准的事件类型如 TNofifyEvent，或者是自已定义一个事件类型，其定义方式如下：

Type
    TComponentEvent  =  procedure(Params) of  object ;

其中 Params是根据组件需要定义的一个或多个参数，可以是任何类型的。

 

下面我们就以具体的实例来讲解如何在Delphi中编写自定义组件。首先在Delphi中新建一个包，然后在包中添加一个单元文件，在单元文件中定义如下组件类

Type
 TMyComponentEvent  =  procedure (Sender: TObject) of  object ;
 
 TMyComponent  =   class (TComponent)
  private
    FMyProperty: String;
    FMyEvent: TMyComponentEvent;