Cerrar diálogo como si clickeara en la "X"

Cerrar diálogo como si clickeara en la "X"

Postby rolando » Fri Sep 26, 2008 2:02 am

Buenas noches,

Hay alguna manera por la que pueda cerrar un diálogo como si clickara sobre la "X" del diálogo, pero al clickear sobre un botón?.

Lo que pasa es que si hago oDlg:end(), me ejecuta el valid del get en el que se encuentra el cursor y, como ese valid pasa a una función que llama a otro dialogo, esto impide que se cierre.

Al clickear sobre la "X" del diálogo se cierra sin problemas.

Hay alguna manera de acceder a la rutina que se accede al clickear sobre la "X"?

Gracias.

Rolando :D
User avatar
rolando
 
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Re: Cerrar diálogo como si clickeara en la "X"

Postby FranciscoA » Fri Sep 26, 2008 2:35 am

rolando wrote:Buenas noches,

Hay alguna manera por la que pueda cerrar un diálogo como si clickara sobre la "X" del diálogo, pero al clickear sobre un botón?.

Lo que pasa es que si hago oDlg:end(), me ejecuta el valid del get en el que se encuentra el cursor y, como ese valid pasa a una función que llama a otro dialogo, esto impide que se cierre.

Al clickear sobre la "X" del diálogo se cierra sin problemas.

Hay alguna manera de acceder a la rutina que se accede al clickear sobre la "X"?

Gracias.

Rolando :D



Prueba con oBtn:lCancel = .T. ó con la clásula CANCEL

REDEFINE BUTTON oBtn ID 101 OF oDlg ACTION oDlg:End() CANCEL


Saludos
User avatar
FranciscoA
 
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Postby Willi Quintana » Fri Sep 26, 2008 3:10 am

Asi:

REDEFINE BUTTON oEsconde ACTION oDlg:Hide() ID 105 OF oDlg

Salu2
User avatar
Willi Quintana
 
Posts: 1022
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú

Postby rolando » Fri Sep 26, 2008 11:57 am

Gracias por responder.

Willi, no se si entendiste lo que quiero hacer, con "oDlg:Hide()", el dialog no se cierra, sólo se oculta.

Francisco, usé "oBtn:lCancel = .T." como indicas y funcionó según mis expectativas.

Saludos.

Rolando :D
User avatar
rolando
 
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 51 guests