Enlazando un evento OnClick a mi componente

[[AgustinOrtu]]

TControl no publica el evento OnClick?

No tengo el Delphi a mano para verificarlo, en ese caso no hace falta que agregues el evento, con sólo publicar la propiedad OnClick ya este

Si en TControl no tiene el evento te conviene heredar de otro control que lo tenga

[gustavosv]

Hola Agustín, gracias por tu respuesta, tienes razón, pero para obtenerlo necesitaría publicar todo el botón, y lo que quiero es solo dejar disponible el evento OnClick del botón.

[[AgustinOrtu]]

No entendi eso de publicar todo el boton

Revisa este codigo:

Código Delphi [-]
unit Unit2;

interface

uses
  Vcl.Controls;

type
  TNothing = class(TControl)
  public
    property OnClick;
  end;

implementation

end.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Nothing := TNothing.Create(Self);
  Nothing.Parent := Self;
  Nothing.Align := alClient;
  Nothing.OnClick := NothingClick;
end;

procedure TForm1.NothingClick(Sender: TObject);
begin
  ShowMessage('click on nothing');
end;

[[AgustinOrtu]]

Releyendo tu ejemplo, lo que tenes que hacer es proveer una propiedad que mapee al OnClick del boton:

Código Delphi [-]
property OnClick: TNotifyEvent read GetOnClick write SetOnClick;

function GetOnClick: TNotifyEvent;
begin
  Result := FBoton.OnClick;
end;

procedure SetOnClick(const Value: TNotifyEvent);
begin
  FBoton.OnClick := Value
end;

[gustavosv]

me refiero a publicar solo el evento OnClick del botón:

Código Delphi [-]
TNothing = class(TControl)
private
  FPanel: TPanel;
  FBoton: TButton;
public   
  property OnClick; ??? 
end;

[gustavosv]

jajaja ... nos cruzamos por 1 minuto los post ...

Gracias Agustín, ahora si ya funcionó como es.

Saludos,

GustavoSV