为什么我们点击按钮，就会执行按钮的onclick事件？这个事件是怎么和我们自己的代码关联起来的。相信很多人都有这个疑问。那么我们就通过一个自定义事件来了解这里面得运行原理。以乘法运算来显示，如果乘数大于100，就提示用户，太大了。这个事件用自定义事件定义。 大家先看一下最终效果，

      我添加了三个文本框，一个按钮，当第一或者第二个文本框的数>100时，点求积按钮，提示Too Big 对话框。

      完成自定义事件需要5步来做：

     1.定义TNotifyEvent类型私有变量

        

FTooBig:TNotifyEvent;

 

         FTooBig是一个指针，它可以保持事件方法的调用地址。

     2.公布一个属性

         

published
  property OnTooBig:TNotifyevent read FTooBig write FTooBig;

 

         OnTooBig这个属性用来操作FTooBig这个私有变量，因为FTooBig是个函数指针，所以但读这个变量时，也就调用了函数。

     3.定义事件处理函数

 

;

 

         这是当文本框数太大时执行的方法。

     4. 把事件处理函数赋值给TNotifyEvent私有变量

         FTooBig := TooBigEvent;

     5. 当条件符合时执行事件处理函数

 

;

 

     下面贴出全部代码：

 

.