Tecla ESC en tBtnGet

[servicomver]

Hola:
Alguien sabe como hacer para que al darle ESC dentro de un BtnGet no se salga, lo que pasa es que dentro del programa la primera captura se hace sobre tBtnGet y darle ESC se cierra el programa, lo he intentado con clausula VALID pero aun asi se sale, alhguien tien alguna idea ??

SAludos
Veracruz, Ver. Mex

[wmormar]

Hola:
Alguien sabe como hacer para que al darle ESC dentro de un BtnGet no se salga, lo que pasa es que dentro del programa la primera captura se hace sobre tBtnGet y darle ESC se cierra el programa, lo he intentado con clausula VALID pero aun asi se sale, alhguien tien alguna idea ??

SAludos
Veracruz, Ver. Mex

servicomver,

Code: Select all  Expand view  RUN

LOCAL oBtn,lSalir := .f.
DEFINE DIALOG oDlg
  REDEFINE BUTTON oBtn ID 101 OF oDlg ACTION (lSalir:=.t.,oDlg:END())
ACTIVATE DIALOG oDlg VALID lSalir


Espero te sirva