evento click de un bitbtn creacion componente

[dec]

Hola,

Prepárale un método al componente que puedas asociar a su evento "OnClick". Dicho método (porque ha de pertenecer a un objeto, por ejemplo, el mismo que estás llevando a cabo) asígnaselo de este modo:

Código Delphi [-]
   var
     MiBoton: TBitBtn;
   begin
     MiBoton := TBitBtn.Create(Self);
     MiBoton.Parent := Self;
     MiBoton.OnClick := MetodoOnClick;
     {...}

Donde la declaración de "MetodoOnClick" ha de ser la siguiente:

Código Delphi [-]
   procedure TForm1.MetodoOnClick(Sender: TObject);

En este caso "MetodoOnClick" es un método de un formulario, pero, lo requerido es que pertenezca a un objeto, por cumplir con lo que precisa el evento "OnClick" del botón, que es de tipo "TNotifyEvent" y se declara así:

Código Delphi [-]
   TNotifyEvent = procedure(Sender: TObject) of object;

Quiere decirse que el método en cuestión puede pertenecer a un formulario (como en el ejemplo de más arriba) o, en fin, a un objeto, el cual puede ser perfectamente el que estás llevando a cabo.

Es probable que con un poco de código se entienda mejor (máxime cuando mis explicaciones pueden dejar que desear) y con este espero que pueda hacerse:

Código Delphi [-]
 type
   TMiBoton = class(TBitBtn)
   private
     procedure MetodoOnClick(Sender: TObject);
   public
     constructor Create(AOwner: TComponent); override;
   end;
 
 implementation
 
 { MiBoton }
 
 constructor TMiBoton.Create(AOwner: TComponent);
 begin
   inherited;
   {...}
   OnClick := MetodoOnClick;
   {...}
 end;
 
 procedure TMiBoton.MetodoOnClick(Sender: TObject);
 begin
   // Responde al evento "OnClick" de "TMiBoton"
 end;