如何为ocx添加事件,并实现事件触发
我做一个读卡器的驱动.
驱动中需要提供一个检测是否有卡的事件.
我取名叫 OnHaveCard.
我通过type library添加了这个事件的定义.
在_TLB.pas中已经看到有如下的定义:
procedure OnHaveCard; dispid 209;
property OnHaveCard: TNotifyEvent read FOnHaveCard write FOnHaveCard;
我在main.pas中添加了:
procedure HaveCardEvent(Sender: TObject);
以及该方法的实现,可是当我在main.pas中添加
procedure TBC.Initialize;
begin
inherited Initialize;
OnActivate := ActivateEvent;
OnClick := ClickEvent;
OnCreate := CreateEvent;
OnDblClick := DblClickEvent;
OnDeactivate := DeactivateEvent;
OnDestroy := DestroyEvent;
OnKeyPress := KeyPressEvent;
OnPaint := PaintEvent;
OnHaveCard := HaveCardEvent;
end;
时,却报OnHaveCard没有定义.
请问高手这是什么原因,应该如何处理?
对ocx的事件机制不了解,呵呵,只是看代码,以为应该这样写的.