FiveTech Software tech support forums

[/code] Hola a todos, En mi consulta anterior me equivoque con el nombre de la funcion. Disculpen por eso. Lo correcto es: SetDialogEsc( .f. / .t. ) Se coloca el inicio de la aplicacion y evita la salida de los dialogos con la tecla ESC Puede ser cambiado a gusto durante la ejecucion ...

Hola a todos, En mi consulta anterior me equivoque con el nombre de la funcion. Disculpen por eso. Lo correcto es: SetDialogEsc( .f. / .t. ) Se coloca el inicio de la aplicacion y evita la salida de los dialogos con la tecla ESC Puede ser cambiado a gusto durante la ejecucion de ...

You can also check oDlg:nResult:

activate dialog oDlg centered

MsgInfo( oDlg:nResult )

and you can also disable Esc to close dialogs:

SetDialogEsc( .F. )

Por alguna razón, los comandos Disable() y Enable() no toman efecto ... Probé con: SetDialogEsc(.F.) msgrundiv('A ver??'+CRLF+; 'Ahora pulsa el teclado como loco desesperado ...'+CRLF+; 'O Clickea repetidamente el Mouse ... ',' Probando Bloqueo Teclado y Mouse') ...

Willi Quintana wrote:Amigos,,, baje el FIVEDIT y salio un error al cerrar el nuevo proyecto con el click derecho
http://kn3.net/464B48BDD8DJPG.html

Solucionado
viewtopic.php?f=6&t=24025&p=181421#p181421

Willy,

En la versión de Fivedit que esta en FWH\samples los proyectos funcionan correctamente.

Solo tienes que ir a FWH\samples y hacer:

buildh.bat fivedit

Amigos,,, baje el FIVEDIT y salio un error al cerrar el nuevo proyecto con el click derecho http://kn3.net/464B48BDD8DJPG.html Willi, los proyectos aun no se han empezado a desarrollar De todas formas, explica un poco más qué pasos diste para que saltara el error Gracias ---------------...

Amigos,,, baje el FIVEDIT y salio un error al cerrar el nuevo proyecto con el click derecho
http://kn3.net/464B48BDD8DJPG.html

Antonio, si funciona bien el ejemplo de Joao,
pero creo que seria mas adecuado incluirlo en tdialog, validar el resultado de SetDialogEsc() y permitir la salida,
revisare el codigo para ver si doy con el lugar correcto, ya les informare.

salu2
carlos vargas

Carlos, te pongo como lo hago y me funciona al pelo y uso lCancel en un boton, saludos... :shock:    REDEFINE BUTTONBMP aBtn[3] ID 203 OF oDlg ; // CALCELAR      ACTION IIF( MsgNoYes( "Seguro Desea Salir/Cancelar Inscripción.?", oDatos:cTitMsg ) ,;         oDlg:END(...

Tocayo, esta seria otra forma de hacerlo. Saludos. Carlos. ...---------DEFINE DIALOG oDlg TITLE "Prueba Dialogo Esc"      @ 2, 2 GET cTest OF oDlg   @ 3,   10 BUTTON "Saldar" OF oDlg SIZE 30, 12              ACTION  oDlg:End()  CANCEL   ACTIVATE DIALOG oDlg CENTERED ;    ...

Carlos,

El ejemplo de Joao funciona bien, te sirve así ?

Gracias Joao

#include "FiveWin.ch"STATIC lSalir := .F.function Main()    local oDlg, cTest := Space( 10 )    SetDialogEsc( .F. )   DEFINE DIALOG oDlg TITLE "Prueba de Teclado"      @ 2, 2 GET cTest OF oDlg  ...

Antonio,

cuando se usa la funcion SetDialogEsc( .F. ) para evitar que presionando escape se cierre el dialogo funciona bien siempre y cuando el dialogo no tenga un boton con la clausula CANCEL, de ser asi, el dialogo se cierra, sin importar el estado de SetDialogEsc.

salu2
carlos vargas

Gracias Jose Luís, Pero eso no es lo que busco, lo que busco es saber como hacer que funcione bKeyDown, bKeyChar y setDialogEsc(.F.) en los diálogos desde recursos. Nada de esto me funciona, y creo que no es correcto. Entonces no te entendi, como dijistes esto "Tengo el problema ...