Cita:
Posteado originalmente por delphi.com.ar
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...
Como no lo he probado, no te garantizo de que se dispare el evento, Saludos!
|
Yo lo he intentado, puse sobre un Form vacío un TAnimate con su animación ya caragada como correspnde y declaré la otra variable para capturar el evento pero no me funciona. Por favor, fijate el código y orientame porque no entiendo.
Código:
type
TForm1 = class(TForm)
Animate1: TAnimate;
procedure Anima1Click(Sender: TObject);
private
public
end;
TMiAnimate = class(Animate1)
published
property OnClick;
end;
var
Form1: TForm1;
Anima1: TMianimate;
implementation
{$R *.dfm}
procedure TForm1.Anima1Click(Sender: TObject);
begin
showmessage('Pum...!');
end;
end.