SALIR DE UN DIALOG CUANDO TIENE GET-VALID

Board index FiveWin para Harbour/xHarbour SALIR DE UN DIALOG CUANDO TIENE GET-VALID

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

SALIR DE UN DIALOG CUANDO TIENE GET-VALID
Posted: Thu Mar 04, 2010 09: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 (fw): Select all Collapse

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

Saludos,

Adhemar C.

jcenteno

Posts: 23

Joined: Thu Dec 10, 2009 06:07 AM

Re: SALIR DE UN DIALOG CUANDO TIENE GET-VALID
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

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: SALIR DE UN DIALOG CUANDO TIENE GET-VALID
Posted: Fri Mar 05, 2010 01:51 AM

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

Dios no está muerto...

Gracias a mi Dios ante todo!

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: SALIR DE UN DIALOG CUANDO TIENE GET-VALID
Posted: Fri Mar 05, 2010 11:40 AM

Hola

prueba asi

REDEFINE BTNBMP oBtn .....

oBtn:lCancel := .T.

saludos

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: SALIR DE UN DIALOG CUANDO TIENE GET-VALID
Posted: Fri Mar 05, 2010 08:17 PM

Gracias a todos pora la ayuda

Funcionó perfecto

Saludos

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion