Método accesible desde varios controles en diferentes forms

[defcon1_es]

Hola Roman,
se me olvidó mencionar que el procedure "genérico" es del TForm1.

Acabo de probar esto y el compilador no se queja... y funciona.

Código Delphi [-]
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
procedure Mi_Manejador_de_EventoClick(Sender: TObject);
end;
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormShow(Sender: TObject);
begin
Button1.OnClick := Mi_Manejador_de_EventoClick;
end;
 
procedure TForm1.Mi_Manejador_de_EventoClick(Sender: TObject);
begin
ShowMessage('Hola');
end;