摘要： unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type //定义一个事件格式，要传参数的格式 后面必须要加上of object TeacherArgnyEvent = procedure(ErrorCount: Integer) of object;typeTTeacher = class(TObject)private FStudentErrorCount: Integer; FOnTeacherArngy: 阅读全文

摘要： typeTCurFlagItem = class(TObject) //定义一个ITEM对象，用来存储ITEM； Flag:Integer; Clocked:Boolean; Note:string; end; TCurFlag=class(TStringList) //定义一个LIST型对象，用来处理上面的ITEM； private { Private declarations } FItemIndex: Integer; FClocked: Boolean; FFlag: Integer; FNote: string; FOnItemIndexChange: TNotifyEvent; p 阅读全文

摘要： 为什么我们点击按钮，就会执行按钮的onclick事件？这个事件是怎么和我们自己的代码关联起来的。相信很多人都有这个疑问。那么我们就通过一个自定义事件来了解这里面得运行原理。以乘法运算来显示，如果乘数大于100，就提示用户，太大了。这个事件用自定义事件定义。 大家先看一下最终效果，我添加了三个文本框，一个按钮，当第一或者第二个文本框的数>100时，点求积按钮，提示Too Big 对话框。完成自定义事件需要5步来做：1.定义TNotifyEvent类型私有变量 Code highlighting produced by Actipro CodeHighlighter (freeware)ht 阅读全文