| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3275559
建立时间:2005年6月6日 |
| |
|
 delphi的自定义事件[转贴]
软件技术
吕向阳 发表于 2009/2/23 16:56:08 |
| 自定义事件定义的方法和定义属性差不多，只是类型时TNotifyEvent。 TNotifyEvent是默认事件，其定义为： TNotifyEvent = procedure(Sender: TObject)
示例一(仅列出相当代码)：
type TParent=class(TObject) private FTimeOut:TNotifyEvent;//事件的方法指针 protected procedure DoTimeOut;dynamic; //调度方法，用于关联事件。 public published property OnTimeOut:TNotifyEvent read FTimeOut write FTimeOut; property OnClick; property OnDblClick;end;
implementation
//事件调度函数，将外部的事件处理函数和该类的事件方法指针联系起来
procedure TTimeCount.DoTimeOut;begin if Assigned(FTimeOut) then FTimeOut(Self);end;
end;
示例二(仅列出相当代码)：
TwfcNode = class (TwfcShape) private FOnClick: TNotifyEvent; procedure SetOnClick(const Value: TNotifyEvent); public property OnClick: TNotifyEvent read FOnClick write SetOnClick; end; procedure TwfcNode.SetOnClick(const Value: TNotifyEvent); begin fOnClick := Value; end; |
|
|