Lo que dijo Kafu, es que es muy fácil definir un evento, pero hay que saber cuando dispararlo, de nada sirve tener eventos que nunca se disparen:
Código:
TMiClase = class(TWinControl)
private
FMiEvento : TNotifyEvent;
published
property MiEvento : TNotifyEvent read FMiEvento write FMiEvento;
end;
Viendo la herencia del TAnimate, se puede ver que viene de TControl, y TControl tiene definido el evento OnClick pero no lo tiene publicado, entonces podemos hacer lo siguiente:
Código:
TMiAnimate = class(TAnimate)
published
property OnClick;
end;
Como no lo he probado, no te garantizo de que se dispare el evento, Saludos!