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
#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
oDlg:bKeyDown = { | nKey | MsgInfo( "Minusculas.: " + Str( nKey ) ) }
oDlg:bKeyChar = { | nKey | MsgInfo( "Mayusculas.: " + Str( nKey ) ) }
@ 3, 10 BUTTON "&Salir" OF oDlg SIZE 30, 12 ;
ACTION ( lSalir := .T., oDlg:End() ) CANCEL
ACTIVATE DIALOG oDlg CENTERED ;
VALID( lSalir )
return nilCarlos,
El ejemplo de Joao funciona bien, te sirve as铆 ?
Gracias Joao 
...---------
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 ;
聽 聽 聽 聽 聽 聽 VALID Salida()
return nil
//-------------------------------------------------------------------------------------------------------------------
FUNCTION Salida( lEsc, lAsk, cMsg )
DEFAULT lEsc := .f., lAsk := .f., cMsg := ""
聽 聽if getkeystate( VK_ESCAPE )
聽 聽 聽 Return( lEsc )
聽 聽endif
聽 聽
聽 聽If lAsk
聽 聽 聽 If Empty( cMsg )
聽 聽 聽 聽 聽cMsg := "Desea Salir de Este Proceso...?"
聽 聽 聽 End
聽 聽 聽 If !MsgNoyes(cMsg,"Confirme por Favor...")
聽 聽 聽 聽 聽Return .f.
聽 聽 聽 End
聽 聽End
return .T.
聽 聽REDEFINE BUTTONBMP aBtn[3] ID 203 OF oDlg ; // CALCELAR
聽 聽 聽 ACTION IIF( MsgNoYes( "Seguro Desea Salir/Cancelar Inscripci贸n.?", oDatos:cTitMsg ) ,;
聽 聽 聽 聽 聽oDlg:END(), ( aBtn[3]:SetFocus(), aBtn[3]:REFRESH() ) ) ;
聽 聽 聽 BITMAP "cancel16" TEXTRIGHT
聽 聽aBtn[3]:lCancel := .t.
聽 聽ACTIVATE DIALOG oDlg CENTER ;
聽 聽 聽 ON INIT( IIF( lNew ,;
聽 聽 聽 聽 聽( oGetFchIng:SetFocus(), oGetFchIng:REFRESH() ) ,;
聽 聽 聽 聽 聽( aGet[3]:SetFocus(), aGet[3]:REFRESH() ) ) ) ;
聽 聽 聽 VALID( !GETKEYSTATE( VK_ESCAPE ) )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
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
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
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
