Object Pascal soporta lo que se conoce como tipos procedurales Procedural types que, en resúmen, son variables que contienen un puntero a un fragmento de código ejecutable, por ejemplo, esto es válido en pascal:
type TStrProc: procedure(const S: string); var MiVariableAProcedimiento: TStrProc; begin MiVariableAProcedimiento := @StrProc1; MiVariableAProcedimiento('hola'); MiVariableAProcedimiento := @StrProc2; MiVariableAProcedimiento('hola otra vez'); end;
Los procedimientos
StrProc1
yStrProc2
tienen que existir, su firma debe coincidir con la declaración del tipo y deben ser visibles al código de la asignación.Un tipo especial de estos es un apuntador a método (method pointer) que es un doble puntero que, además de apuntar al fragmento de código ejecutable, apunta también a una instancia de un objeto en memoria. Su declaración incluye las palabras
of object
al final de la declaración de tipo, así:type TNotifyEvent: procedure(Sender: TObject) of object; TMiTipoDeMetodo: procedure(const S: string) of object;
Un evento no es más que una propiedad de tipio apuntador a método.
El método de una clase que se asocia a un evento se conoce como manejador de evento. Hay una linea algo fina aquí, pero debe quedar claro que el método no es el evento en si, sino el código que se ejecutará cuando se lance el evento.
En tiempo de ejecución un evento puede estar asociado a un manejador particular o no estar asignado a ningún manejador. De hecho, la asociación se puede cambiar en cualquier momento, considera este caso:
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('No hagas clic de nuevo!'); Button1.OnClick := Button1NuevoClick; end; procedure TForm1.Button1NuevoClick(Sender: TObject); begin ShowMessage('No creí que te atrevieras, no haré nada más por ti'); Button1.OnClick := nil; end;
Cuándo estás diseñando un formulario o módulo de datos, cuando haces doble clic en el inspector de objetos ocurren dos cosas:
- Se crea un manejador de eventos en la clase del formulario o módulo de datos que estás editando. Esto involucra la declaración del método en la declaración de clase, y su implementación. El cursor se coloca después del
begin
de dicha implementación. - Se asocia el evento en el componente que tienes seleccionado con dicho manejador de evento. Esta asociación queda registrada en el archivo dfm en el caso de VCL o fmx en el caso de FireMonkey.
- Se crea un manejador de eventos en la clase del formulario o módulo de datos que estás editando. Esto involucra la declaración del método en la declaración de clase, y su implementación. El cursor se coloca después del
En tiempo de ejecución, cuando se crea una instancia de este formulario, el mecanismo de streaming resolverá la asociación entre el manejador de evento y el evento registrada en el DFM/FMX y realizará dicha asignación en las instancias correctas de los objetos. De esta forma podemos tener varias instancias de un formulario o módulo de datos, y no hay confusión en qué objeto es el que está relacionado cuando se lanza el evento como tal.
Quiero resaltar en este punto que, si observas con detenimiento, el método asociado como manejador de evento no tiene por qué pertenecer al mismo objeto que publicó el evento. Esto ocurre todo el tiempo si, por ejemplo, botas un botón en el formulario, haces doble clic en él y se crea un manejador de evento en la clase del formulario, que es asociado al evento del botón.
Encontrarás más información en la documentación: Eventos