通常event是一个指向类实例方法的方法指针;
事件也是一种属性, 因此一般定义如下:
FOnUpdateMinute: TNotifyEvent;
property OnUpdateMinute: TNotifyEvent read FOnUpdateMinute write OnUpdateMinute;
procedure OnUpdateMinute(const Value: TNotifyEvent);
TNotifyEvent 的定义:
type TNotifyEvent = procedure (Sender: TObject) of object; // 事件方法是一个过程
事件方法是可选的, 即必须提供默认的事件处理代码.
使用标准事件:
VCL组件继承了标准事件, 一般是 protected.
标准事件分为两类:
一种是所有控件(继承于TControl)共有的: 如鼠标事件, 键盘事件; 一般都有对应的回调方法:
OnClick--> Click; OnEndDrag--> DoEndDrag.
一种是标准控件(继承于TWinControl):
如: OnEnter, OnKeyDown, OnKeyPress, OnExit.
响应windows消息 WM_GETDLGCODE 或 CM_WANTSPECIALKEYS处理特殊按键(如Alt).
TControl 和 TWinControl中的标准事件一般定义在 Protected中.
从这两个类中继承的子类的事件需要在Public或published 中重新定义.
重写事件的处理方法: override, inherited;
自定义事件:
1. 触发事件 -- 什么情况下触发定义的事件; 鼠标,键盘,时间,状态改变等.
2. 事件方法类型:
TNotifyEvent: 仅仅发出事件已经发生的通知, 不带有参数.
特殊事件类型: 比如键盘事件就附加有按键信息; 消息事件通过消息参数传递信息;
事件方法中返回信息: 因为所有的事件方法都是 procedure, 只有通过 var 参数来返回事件是否处理;
OnKeyDown, OnKeyUp, and OnKeyPress 即传递 var key 参数.
3. 声明事件:
事件一般以 On 前缀命名, 在通讯和数据库组件事件中也有 Before, After 前缀.
4. 调用事件:
默认的事件处理代码;
覆盖 override 默认的事件处理方法;