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;