evento click de un bitbtn creacion componente

[satabel]

hola
estoy haciendo un componente heredado de tbitbtn pero no se como dentro del codigo agrego una instruccion cuando se haba click sobre este componente..

gracias

[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;

[roman]

Empezado por satabel

no se como dentro del codigo agrego una instruccion cuando se haba click sobre este componente

Si te refieres al código del mismo componente lo que tienes que hacer es redefinir su método Click:

Código Delphi [-]
interface

type
  TExBitBtn = class(TBitBtn)
  public
    procedure Click; override;
  end;

implementation

procedure TExBitBtn.Click;
begin
  {
    Aquí tu código
  }
end;

end.

// Saludos

[dec]

Hola,

Empezado por roman

Si te refieres al código del mismo componente lo que tienes que hacer es redefinir su método Click:

Pensándolo mejor creo que has dado en el clavo roman. Y que yo me fui por los cerros de Úbeda...