创建自己的Dephi构件

4． 为构件增加事件

         在Dephi中，事件也是使用关键字Property来声明。其语法格式为： 

Property OnNewEvent  ：Aevent Type 

read  FonNewEvent write FonNewEvent;

声明事件后往往要将windows的消息传递与事件联系起来才能真正实现事件驱动，因此，我们还要增加一种新的特殊类型的动态的“消息管理”方法，其语法格式为：

Procedure  MsgPro(var Msg  ：Tmessage) ;message AmsgIndex;

        其中，关键字Message 声明此为一个消息管理方法。 AmsgIndex 为一整数常数，作 windows 消息动态索引，当索引为 AmsgIndex 的消息传递至应用程序时便会执行 MsgPro过程。

5． 测试构件

        测试构件，确信构件是按设计编译和起作用的。这是构件开发中非常关键的一步，为测试构件，要先写一个用作测试的应用程序，由于不能拉出构件选项板窗口上的构件，还必须人工创建一个构件。

6． 将新构件添加到构件选项板

      &

二． 构件创建实例

        下面要开发的新构TnewLabel 是从TLabel 类继承来的，它与 TLabel 具有相似的焦点感应能力：当鼠标移到Tlabel 上时，文字颜色发生改变；当鼠标离开时，颜色恢复。它还将增加一个EnterTextColor属性以及 OnMouseLeave和OnMouseLeave事件。属性 EnterTextColor中可以输入鼠标进入构件时文字的颜色，  OnMouseEnter、 OnMouseLeave事件中则可输入程序员自己的代码来指定鼠标进入和离开构件时的动作。