setDialogEsc( lOnlOff ) FWH8.08

[Daniel Garcia-Gil]

setDialogEsc( lOnlOff )
no me funciona esta funcion, siempre se cierran los dialogos al presionar ESC, tengo FWH 8.08
la seteo en ON o OFF (.t. o .f.) y la coloco al principio de mi aplicacion, nunca hace nada, la he colocado en varias partes del sistema y nada, lo que me quedo fue colocarla en el bolsillo y olvidarme de ella (por ahora)
he tenido que optar por colocar los valid en cada dialog
VALID !GETKEYSTATE( VK_ESCAPE )

[karinha]

Puedes hacer asi,

STATIC lSalida := .F.

Code: Select all  Expand view  RUN

REDEFINE BUTTON oBtn OF oDlg ;
                ACTION( lSalida := .T.,  oDlg:End() )

ACTIVATE DIALOG odlg CENTERED ;
        VALID( lSalida )


[Daniel Garcia-Gil]

gracias karinha, es muy buena idea tambien, pero lo ideal seria que aprovechando la utilidad de dicha funcion no tengas que hacer el VALID en todos los dialogos...