SALIR DE UN DIALOG CUANDO TIENE GET-VALID

[acuellar]

Hola a todos

Cómo hago para salir de un DIALOG usando el boton diseñado (Cancelar) y no con la tecla ESCAPE o el boton X

Code: Select all

DEFINE DIALOG oDlg FROM 1,5 TO 9,46 TITLE "Usuarios"
  @ 16,5  SAY "Nombre:"  OF oDlg SIZE 30,10 PIXEL RIGHT
  @ 16, 36 GET oGet VAR oDBF:NOMBRE OF oDlg PICTURE "@!" SIZE 120,10 PIXEL VALID if(EMPTY(oDBF:NOMBRE ),(MsgInfo("Vacío"),.F.),.T.) 
                                         
   @2.5,5 BUTTON "Grabar" OF oDlg SIZE 40,10 ACTION ( oDBF:Save(), oDlg:End()) 
   @2.5,15 BUTTON "Cancelar" OF oDlg SIZE 40,10 ACTION oDlg:End()   
    
 ACTIVATE DIALOG oDlg CENTER
 

Gracias por la ayuda

Saludos

Adhemar

[jcenteno]

Adhemar,

REDEFINE BUTTON aoButtons[3] ID 303 OF oFrmUsersCfg ; //Cancelar
ACTION ( nLost := 1, CancelClick( oFoldUsers, aoButtons ), lNew := FALSE );
CANCEL UPDATE

Saludos,

Jairo

[joseluisysturiz]

y como se hace para el BNTBMP...? ya que solo funca con button...gracias.

[Marcelo Via Giglio]

Hola

prueba asi

REDEFINE BTNBMP oBtn .....

oBtn:lCancel := .T.


saludos

[acuellar]

Gracias a todos pora la ayuda

Funcionó perfecto

Saludos

Adhemar