En el ".PRG" incorporado la siguiente linea
Code: Select all
@ 40 ,10 TEXTBOX GET_2 WIDTH 50 VALUE 0 NUMERIC INPUTMASK "999" ON LOSTFOCUS miraver()
Code: Select all
STATIC FUNC miraver()
DEFINE WINDOW Win_2 AT 1,1 WIDTH 400 HEIGHT 420 ;
TITLE 'VENTANA DE PRUEBA' ;
MODAL ;
ON INIT (msgbox("probando"), Win_2.Release)
END WINDOW
CENTER WINDOW Win_2
ACTIVATE WINDOW Win_2
RETURN
Si nos situamos en el TEXTBOX y acto seguido desplazamos el ratón fuera de pantalla y pulsamos en cualquier lado se casca el programa y aparece la siguiente pantalla ?¿?¿??¿¿¿?¿?¿?¿?¿?¿