Las siguientes instrucciones en los metodos KeyChar y KeyDown de tGet y tControl(), no s贸lo evitan un beep, sino que tambi茅n impiden la ejecuci贸n de cualquier acci贸n al pulsar la tecla ESC.
if nKey == VK_ESCAPE // avoids a beep!
::oWnd:KeyChar( nKey, nFlags )
return 1
endif
Tuve que hacer override de esos m茅todos (quitando estas instrucciones) para que un di谩logo con un get se cerrara al pulsar un ESC, es decir,
@ 0,0 GET oGet VAR cVar OF oDlg ......
oGet:bKeyDown:={|nK,nF| if(nK=VK_ESCAPE,oDlg:End(),nil)}
Pregunta: 驴Cu谩les pueden ser las consecuencias negativas de estos override?
Gracias.
C茅sar Lozada
