Problema con botón Cancelar
Posted: Mon Oct 31, 2011 5:39 pm
Dado el siguiente ejemplo:
Function Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'HMG Demo' ;
MAIN
@ 10,10 TEXTBOX Text_1 ;
VALUE 0 ;
TOOLTIP 'Numeric TextBox' ;
NUMERIC ;
MAXLENGTH 5 ;
RIGHTALIGN ;
ON LOSTFOCUS if ( This.Value < 100 , This.SetFocus , Nil)
DEFINE BUTTON C
ROW 250
COL 100
WIDTH 160
CAPTION 'Cancel'
ACTION Form_1.Release
END BUTTON
DEFINE BUTTON D
ROW 250
COL 290
WIDTH 160
CAPTION 'Other'
ACTION Process()
END BUTTON
END WINDOW
Form_1.Center
Form_1.Activate
Return Nil
static Function Process()
...
...
retu Nil
Si estoy posicionado en el control TEXTBOX y pulso el botón CANCEL, no sale del TEXTBOX y tampoco puede salir del formulario. No es un problema extremo porque uno siempre tiene la posibilidad de salir cerrando el formulario desde la "x" de la ventana, pero ¿ Cómo se puede solucionar este problema ?
Function Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'HMG Demo' ;
MAIN
@ 10,10 TEXTBOX Text_1 ;
VALUE 0 ;
TOOLTIP 'Numeric TextBox' ;
NUMERIC ;
MAXLENGTH 5 ;
RIGHTALIGN ;
ON LOSTFOCUS if ( This.Value < 100 , This.SetFocus , Nil)
DEFINE BUTTON C
ROW 250
COL 100
WIDTH 160
CAPTION 'Cancel'
ACTION Form_1.Release
END BUTTON
DEFINE BUTTON D
ROW 250
COL 290
WIDTH 160
CAPTION 'Other'
ACTION Process()
END BUTTON
END WINDOW
Form_1.Center
Form_1.Activate
Return Nil
static Function Process()
...
...
retu Nil
Si estoy posicionado en el control TEXTBOX y pulso el botón CANCEL, no sale del TEXTBOX y tampoco puede salir del formulario. No es un problema extremo porque uno siempre tiene la posibilidad de salir cerrando el formulario desde la "x" de la ventana, pero ¿ Cómo se puede solucionar este problema ?