Delphi中类的自定义事件

 时间:2024-10-18 01:26:19

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

Delphi中类的自定义事件

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

Delphi中类的自定义事件

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会触发事件。

Delphi中类的自定义事件
  • 如何缩短项目交付周期
  • pycharm怎么取消自动换行
  • notepad++如何创建一个简单的HTML程序
  • 如何查看电脑迅雷的版本号
  • 怎么让win7任务栏图标不合并
  • 热门搜索
    新婚燕尔是什么意思 乳腺钙化是什么意思 含辛茹苦的意思 什么叫唯心主义 削足适履意思 什么牌的手机好 素圈戒指是什么意思 拉血什么原因 道义是什么意思 碧波荡漾是什么意思