FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Validando un dialogo MODAL
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM

Validando un dialogo MODAL

Posted: Wed Jun 23, 2010 07:48 AM
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 (fw): Select all Collapse
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
Javier,

FWH 8.04 2008
Posts: 498
Joined: Thu May 10, 2007 08:30 PM

Re: Validando un dialogo MODAL

Posted: Wed Jun 23, 2010 08:45 AM

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.

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM

Re: Validando un dialogo MODAL

Posted: Wed Jun 23, 2010 09:41 AM
Gracias por responder antolin.

Pero ya encontr茅 la soluci贸n.
Estaba creando el dialogo dependiendo de una MdiChild.

De este modo.
Code (fw): Select all Collapse
DEFINE DIALOG oDlg OF MdiChild STYLE( .., ... )


He suprimido el OF MdiChild y STYLE dejandolo as铆:
Code (fw): Select all Collapse
DEFINE DIALOG oDlg RESOURCE "RECU" ;
   COLORS CLR_BLUE, CLR_LIGHTBLUE


Y ya no me da ese problema.

Saludos.
:-)
Javier,

FWH 8.04 2008
Posts: 68
Joined: Tue Apr 14, 2009 09:26 PM

Re: Validando un dialogo MODAL

Posted: Thu Jun 24, 2010 11:58 AM

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

Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM

Re: Validando un dialogo MODAL

Posted: Thu Jun 24, 2010 12:03 PM

Gracias William.

:wink:

Javier,

FWH 8.04 2008

Continue the discussion