为Delphi程序添加事件和事件处理器

在Delphi中，事件实际上是专门化的属性，它是一个过程（procedure）的指针。要添加事件，首先应在所定义的类中说明一个用来指向事件过

程的指针，该指针的作用是当事件一旦发生，就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符 published公布定义的事件

属性以及与之关联的事件处理过程指针。

private
  FpCalc : TNotifyEvent;//事件处理过程指针
published
  property OnpCalc:TNotifyevent read FpCalc write FpCalc;{定义事件属性名}

procedure TForm1.pCalc(Sender: TObject);
begin
//
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if assigned(FpCalc) then
    OnpCalc(Self);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FpCalc := pCalc;{使事件处理指针指向事件处理器}
end;