Nuevo evento

[hgiacobone]

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.

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.