Validando un dialogo MODAL

[jfafive]

Hola amigos,

Me pasa una cosa muy extraña. Tengo un dialogo de tipo modal. Nada del otro mundo, algo muy normalito.
Pero le tengo puesto un valid para que en caso de querer cerrarlo sin haber guardado los cambios, pida confirmación.

Si cierro la ventana pulsando la esquina superior derecha, el botoncito del aspa "x", la validación va OK.
Pero si lo hago pulsando la tecla ESC, me cierra tambien pero me repite la validación dos veces.

Y no se como solucionarlo, me da que es algo interno de la clase Dialog.

Si alguien le ha pasado algo parecido, le agradecería me enviase una ayudita.
Aquí os dejo un ejemplo de mi código.
Gracias.

Code: Select all  Expand view

ACTIVATE DIALOG oDlg VALID if( lModificado, fValida(), .f. )

STATIC function fValida()

   local cMsg := "Confirmar"
   local lVal

   if MsgYesNo( cMsg, OemToAnsi( "Confirmación" ) )

     lVal := .t.

   else

     lVal := .f.

   endif

return lVal

 

[antolin]

Hola jfafive,

Una solución inmediata sería anular la salida con escape de esta manera VALID !( GeTKeyState(27) ) mientras buscas otra solución.

Un saludo.

[jfafive]

Gracias por responder antolin.

Pero ya encontré la solución.
Estaba creando el dialogo dependiendo de una MdiChild.

De este modo.

Code: Select all  Expand view

DEFINE DIALOG oDlg OF MdiChild STYLE( .., ... )

He suprimido el OF MdiChild y STYLE dejandolo así:

Code: Select all  Expand view

DEFINE DIALOG oDlg RESOURCE "RECU" ;
   COLORS CLR_BLUE, CLR_LIGHTBLUE
 

Y ya no me da ese problema.

Saludos.

[WilliamAdami]

El link seguinte contiene un texto onde explica como debes utilizar Ventanas con entorno MDI corretamente:

http://www.4shared.com/document/n701puj_/VENTANAS.html


Saludos

William Adami

[jfafive]

Gracias William.