Problema con botón Cancelar

[citro]

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 ?

[Pablo César]

Inseri una variable al comienzo para realizar la excepccion. Fijate si es eso lo que precisas:

Code: Select all

#include <hmg.ch>

Function Main
	Local lSale:=.F.

	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 , If(lSale=.T.,This.SetFocus,Nil) , Nil)

	DEFINE BUTTON C
	ROW	250
	COL	100
	WIDTH	160
	CAPTION	'Cancel'
	ACTION	{||Form_1.Release,lSale:=.T.}
	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

Creo que esta solución te piueda dar una idea para solucionar este otro tópico: http://hmgforum.com/viewtopic.php?f=24&t=2141. Espero que esto te ayude.

[citro]

Con ese arreglo sale al pulsar el botón Cancelar, pero si en lugar de Cancelar pulso el botón Other no valida el TextBox.