botón de salida

[euronv]

Hola amigos del foro, en mis aplicaciones acostumbro a crear un command button para salir del formulario y ejecutar en este ciertas rutinas, nunca he habilitado el botón por default que trae el form (la X en la parte superior derecha del form) ahora bien, en un formulario que estoy creando me veo en la necesidad de habilitar este botón pero no se como colocar en este los códigos con las rutinas que necesito ejecutar al momento del pulsar clic en el ya que no veo por ninguna parte como acceder al evento clic de dicho botón.

Saludos 

[Federico Losco]

Hola.... creo que debes hacerlo en el evento quit del form. Saludos

Lic. Federico Losco

El abr 17, 2014 11:38 a.m., "euronv" <eur...@gmail.com> escribió:

Hola amigos del foro, en mis aplicaciones acostumbro a crear un command button para salir del formulario y ejecutar en este ciertas rutinas, nunca he habilitado el botón por default que trae el form (la X en la parte superior derecha del form) ahora bien, en un formulario que estoy creando me veo en la necesidad de habilitar este botón pero no se como colocar en este los códigos con las rutinas que necesito ejecutar al momento del pulsar clic en el ya que no veo por ninguna parte como acceder al evento clic de dicho botón.

Saludos 

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

[Víctor Hugo Espínola Domínguez]

Hola euronv

Mira la ayuda del evento QueryUnload y la propiedad ReleaseType.

Saludos,

Víctor.

Lambaré - Paraguay.

El 17 de abril de 2014, 10:38, euronv <eur...@gmail.com> escribió:

Hola amigos del foro, en mis aplicaciones acostumbro a crear un command button para salir del formulario y ejecutar en este ciertas rutinas, nunca he habilitado el botón por default que trae el form (la X en la parte superior derecha del form) ahora bien, en un formulario que estoy creando me veo en la necesidad de habilitar este botón pero no se como colocar en este los códigos con las rutinas que necesito ejecutar al momento del pulsar clic en el ya que no veo por ninguna parte como acceder al evento clic de dicho botón.

Saludos 

[Euro J. Nava L.]

Hola Federico el quit no es un evento del form es un comando

 

 

 

Saludos

 

 

 

El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía.

 

Bendito el hombre que ha sido llamado por Cristo para ser soldado de su ejército en cuya mano empuñe como arma la palabra de Dios

[Euro J. Nava L.]

Gracias Victor por la sugerencia, funciona y no funciona te explico

 

Dentro de la rutina tengo un MESSAGEBOX que permite confirmar la solicitud de salida o anularla, si la confirmo se ejecuta la rutina perfectamente pero si la anulo cierra el formulario de todas formas y esto no quiero que lo haga si el usuario decide no salir del form.

 

 

 

Saludos

 

 

 

El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía.

 

Bendito el hombre que ha sido llamado por Cristo para ser soldado de su ejército en cuya mano empuñe como arma la palabra de Dios

 

De: mundovis...@googlegroups.com [mailto:mundovis...@googlegroups.com] En nombre de Víctor Hugo Espínola Domínguez
Enviado el: Jueves, 17 de Abril de 2014 10:18 a.m.
Para: mundovis...@googlegroups.com
Asunto: Re: [Mundo Visual FoxPro] botón de salida

 

Hola euronv

Saludos,

Víctor.

Lambaré - Paraguay.

[Víctor Hugo Espínola Domínguez]

Hola Euro

Dentro del evento QueryUnload el comando NODEFAULT sirve para que el formulario no se destruya.

Ejemplo:

*- Envento QueryUnload

IF ThisForm.QuiereSalir()

      *- Comandos previos al cierre del formulario

ELSE

      NODEFAULT

ENDIF

Saludos,

Víctor.

Lambaré - Paraguay.

[Euro J. Nava L.]

Funciono a la perfección!!!, muchas gracias Victor por tu soporte

 

 

 

Saludos y muy agradecido

[Jorge Benitez]

Yo uso el destroy

[Fidel Charny]

El tema es que cuando ocurre el evento Destroy no podrás evitar que el formulario se cierre. Para permitir volver al form cerrarando con la cruz del form, se debe utilizar QueryUnLoad como bien explica Victor Hugo. 

Para un botón de cierre, la consulta sobre cerrar el form debe estar en el Click del botón ya que utiliza el método Release y no se produce QueryUnload. No obstante, se puede acceder al código de QueryUnLoad usando un truco:

*<QueryUnload>

nmess=MESSAGEBOX("Desea cerrar?",4,PROGRAM())

IF nMess#6

NODEFAULT

ENDIF

RETURN nMess

*</QueryUnload>

*<cmdCierre.Click>

IF Thisform.QueryUnload()=6

         thisform.Release

ENDIF

*</cmdCierre.Click>

o También

*<QueryUnload>

nmess=MESSAGEBOX("Desea cerrar?",4,PROGRAM())

thisform.AddProperty("ShutDown",IIF(nmess=6,.t.,.f.))

IF nMess#6

NODEFAULT

ENDIF

*</QueryUnload>

*<cmdCierre.Click>

RAISEEVENT(thisform,"QueryUnload")

IF !thisform.ShutDown

RETURN

ENDIF

thisform.Release

*</cmdCierre.Click>

[HernanCano]

Amigo euro: 

De la misma forma que lo deshabilitas, lo habilitas.

Tip:

ThisForm.Closable = .f.

[integral]

Amigo Euronv...

 

En relacion a tu pregunta te muestro el codigo que vengo utilizando desde que programaba en VFP 6.0

 

Boton Cerrar :

Thisform.QueryUnload()

 

#DEFINE vfpYesNo        4
#DEFINE vfpYes            6
#DEFINE vfpQuestion   32

IF Messagebox("¿Desea Cerrar el Formulario?",;
            vfpQuestion + vfpYesNo, "Atención") = vfpYes Then
   Thisform.Release
Else
   NoDefault
Endif        

 

Saludos,

 

INTEGRAL

[Euro J. Nava L.]

Gracias amigos por el soporte

 

 

 

Saludos

 

 

 

El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía.

 

Bendito el hombre que ha sido llamado por Cristo para ser soldado de su ejército en cuya mano empuñe como arma la palabra de Dios

 

--