下面 实现了两个自定义事件
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
edtcheng1: TEdit;
edtcheng2: TEdit;
btnBtnJi: TButton;
edtchengvalue: TEdit;
tmr1: TTimer;
edt1: TEdit;
//声明 TooBigEvent事件
procedure TooBigEvent(Sender: TObject);
//声明 Timeisover事件
procedure Timeisover (Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnBtnJiClick(Sender: TObject);
procedure tmr1Timer(Sender: TObject);
private
{ Private declarations }
FTooBig:TNotifyEvent; //FTooBig是一个指针,它可以保存TooBigEvent事件方法的调用地址。
FMsgTimeIsOver:TNotifyEvent; //FTooBig是一个指针,它可以保存Timeisover事件方法的调用地址。
public
{ Public declarations }
published
// OnTooBig这个属性(其实也是方法的一种)用来操作FTooBig这个私有变量,因为FTooBig是个函数指针,所以但读这个