Método accesible desde varios controles en diferentes forms

[roman]

Empezado por defcon1_es

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
....
  MiBoton.OnClick := Mi_Manejador_de_Evento;
....
end;

Aquí va a protestar el compilador. No puedes asignar un procedimiento regular a una propiedad de un objeto, sólo puedes asignarle métodos.

Lo que puede hacer en todo caso es:

Código Delphi [-]
type
TEventos = class
  class procedure EventoClick(Sender: TObject);
end;
 
...
 
MiBoton.OnClick := TEventos.EventoClick;

El uso de class procedure es para no tener que crear un objeto de la clase TEventos.

// Saludos