El orden para entenderlo y generarlo es el siguiente (lo hacemos con otro evento, por ejemplo,
OnFinger):
1) El componente tiene un evento
OnFinger, que queremos capturar.
2) En la unit generada buscamos la definición del evento:
Código Delphi
[-]
property OnFinger: TNotifyEvent read FOnFinger write FOnFinger;
3) Vemos que el evento es del tipo
TNotifyEvent y buscamos este tipo. Este tipo es estandard de Delphi, pero podría estar definido es la misma unit, como el caso anterior de
TCZKEMOnVerify.
El caso
TCZKEMOnVerify está definido en la misma uniot como:
Código Delphi
[-]
TCZKEMOnVerify = procedure(ASender: TObject; UserID: Integer) of object;
El
TNotifyEvent es estandard de Delphi, como te he comentado y si lo buscas en el código o en la ayuda es del tipo:
Código Delphi
[-]
TNotifyEvent = procedure(Sender: TObject) of object;
4) Creamos un procedimiento para asifgnarlo al evento del mismo tipo (
con los mismos parámetros):
Código Delphi
[-]
procedure FingerProc(Sender: TObject);
5) Asignamos el procedimiento creado al evento del componente...
Código Delphi
[-]
var
comp:TCZKEM;
begin
comp := TCZKEM.Create(nil);
comp.OnVerify := VerifyProc;
comp.OnFinger := FingerProc; <<=================
Y con eso conseguimos que cada vez que en el componente "salte" el evento
OnFinger, se ejecute nuestro procedimiento
FingerProc.