FiveTech Software tech support forums

Posted: **Thu Mar 04, 2010 9:17 pm**

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

Posted: **Thu Mar 04, 2010 10:18 pm**

Adhemar,

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

Saludos,

Jairo

Posted: **Fri Mar 05, 2010 1:51 am**

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

Posted: **Fri Mar 05, 2010 11:40 am**

Hola

prueba asi

REDEFINE BTNBMP oBtn .....

oBtn:lCancel := .T.

saludos

Posted: **Fri Mar 05, 2010 8:17 pm**

Gracias a todos pora la ayuda

Funcionó perfecto

Saludos

Adhemar

FiveTech Software tech support forums

SALIR DE UN DIALOG CUANDO TIENE GET-VALID

SALIR DE UN DIALOG CUANDO TIENE GET-VALID

Re: SALIR DE UN DIALOG CUANDO TIENE GET-VALID

Re: SALIR DE UN DIALOG CUANDO TIENE GET-VALID

Re: SALIR DE UN DIALOG CUANDO TIENE GET-VALID

Re: SALIR DE UN DIALOG CUANDO TIENE GET-VALID