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