Proxy: la Proprietà per sollevare Eventi del mouse e della tastiera contemporaneamente in due Controlli

In generale il Proxy è un elemento che fa da intermediario fra altri elementi, facendo da ponte, e si sostituisce a uno o a più elementi.

In Gambas un Controllo grafico può avere il suo "Proxy", assegnando alla sua omonima Proprietà ".Proxy" un Oggetto.
Tale Oggetto diventerà dunque Proxy del Controllo grafico principale, al quale è stato appunto assegnato.
Più in particolare , inserendo nel codice del programma taluni Eventi del mouse e della tastiera appartenenti al Controllo principale (ossia quello al quale è stato assegnato il suo Proxy), quando si solleva l'analogo Evento (del mouse o della tastiera) dell'Oggetto Proxy - ancorché detto Evento non sia eventualmente esplicitato nel codice - viene sollevato contestualmente anche l'Evento, se previsto nel codice, del Controllo principale.
In tal caso all'interno della subroutine del Controllo principale Gambas avrà come punto di riferimento il Controllo principale medesimo.

Mostriamo un esempio esplicativo, nel quale un Button diventa Proxy del Form principale:

Public Sub Form_Open()

' Il "Button" diventa "Proxy" del "Form": ogni Evento del mouse o della tastiera, appartenente al "Button", che si solleverà, farà sollevare automaticamente l'analogo Evento del Form".
 Me.Proxy = Button1

End


Public Sub Button1_MouseDown()  ' Questo Evento e la sua subroutine possono anche eventualmente non essere qui esplicitati

' Restituisce la distanza del puntatore del mouse dal margine sinistro del "Button":
 Print "Sollevato Evento \"Button1_MouseDown()\" | Mouse.X = "; Mouse.X

End


Public Sub Form_MouseDown()

' Restituisce la distanza del puntatore del mouse dal margine sinistro del "Form"... anche se si clicca sul "Button":
 Print "Sollevato Evento \"Form_MouseDown()\" | Mouse.X = "; Mouse.X

End