Ejemplo de clase Observer

Los Observadores son objetos que le permiten interceptar eventos lanzados por otros objetos, es decir que los "observan".
Puede interceptar eventos justo antes o después de que sean lanzados.
Por cada evento interceptado el observador lanzará un evento con el mismo nombre y los mismos argumentos.
Puede cancelar el evento original al usar STOP EVENT dentro del manejador de evento del observador.

' gambas class file

'by postapase

Private $hObserver As Observer

Public Sub Form_Open()

$hObserver = New Observer(Button1) As "Observador"

End

Public Sub Observador_Click()

If CheckBox1.Value Then
Debug "Se hizo clic en el botón. ¡Cancelo el evento!" & "(Observador Activado)"
Stop Event
Else
Debug "(El observador esta desactivado!)"
Endif

End

Public Sub Button1_Click()
Print "Me ves porque el Observador esta desactivado"
End

Código fuente en la Granja de Gambas.