Enlazando un evento OnClick a mi componente

[gustavosv]

Hola, tengo la siguiente definición de una clase que implementa un 'componente' y no sé que debo hacer para enlazar el OnClick del botón:


TPruebaOnClic = class(TControl)
private
FRectang: TRectangle;
FBoton: TButton;
FOnClic: TNotifyEvent;
public
constructor Create(AOwner: TFmxObject);

property OnClicBoton: TNotifyEvent read FOnClic write FOnClic;
end;

constructor TPruebaOnClic.Create(AOwner: TFmxObject);
begin
FRectang := TRectangle.Create(AOwner);
with FRectang do
begin
Parent := AOwner;
Align := TAlignLayout.Client;
Opacity := 0.8;
end;

FBoton := TButton.Create(AOwner);
with FBoton do
begin
Parent := FRectang;
Align := TAlignLayout.Center;
OnClick := FOnClic;
Visible := True;
end;
end;


Ahora desde la aplicación que usa el 'componente' ...


procedure TForm1.FormCreate(Sender: TObject);
begin
Boton := TPruebaOnClic.Create(Panel1);
Boton.OnClicBoton := OnClicOpc1;
end;

procedure TForm1.OnClicOpc1(Sender: TObject);
begin
showmessage('estamos en grabar trabajo');
end;


Al ejecutarla, se muestra el rectángulo con el botón, pero no se ejecuta el evento al hacer clic sobre el botón.

No se hace de esa manera ...?

Gracias.

GustavoSV

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



unit Unit2;

interface

uses
Vcl.Controls;

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

implementation

end.



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:



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:

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