Delphi中类的自定义事件

1、打开Delphi7集成开发环境，在默认工程的Form1窗体上放一个Edit1输入框和一个Button1窗体。

3、接下来我们定义事件的挂载，我们在类的构造函数中就将事件处理方法赋给类的过程类型的字段，代码如下;constructor TTestClass.create;begin FOnScoreFull:=SetOnScoreFull;end;

5、双击Button1按钮进入事件方法，并写如下代码：procedure TForm1.Button1Click(Sender: TObject);var mytest:TTestClass;begin mytest:=TTestClass.create; mytest.Name:='李四'; mytest.Score:=Edit1.Text;end;定义了一个TTestClass类的实例，并对Name属性和Score属性进行赋值，当Score>100会触发事件。