Cerrar Formulario

[integral]

Estimados Amigos

Nuevamente recurrro a sus consejos. Deseo Cerrar un Formulario de manera automatica sin utilizar el mouse. 

En el Prg llamo asi al formulario

Do FORM "C:\MIGRACONSU\ERP_CONSUMO\FORMS\INICIO_SQL.SCX"  

Read Events  

Init del Formulario utilizo

Thisform.Command1.Init()

Destroy del formulario

Clear Events
Thisform.Release
RETURN .F.

Command1 (Boton Cerrar)

KEYBOARD '{ENTER}' 
Thisform.Release

Pero no logro que se Cierre el formulario

Agradezco sus comentarios y sugerencias.

Saludos,

Integral

(Lima-Perú)

[Ramon-México]

Prueba esto:

Destroy del formulario

on shutdown

on error

Clear Events

quit

[Javier Javier]

Hola, ponele el clear events en el release y por si te clickean en la X de cerrsr el formulario en el QueryUnload mandalo al release this.release.

Saludos

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/e8649571-47f5-457f-ac70-9ce19777de8fn%40googlegroups.com.

[integral]

Que tal Amigos :

Gracias por sus comentarios y sugerencias.

Analizando y reordenando mis ideas logre realizar lo que deseaba.

Encontré el siguiente link que se relaciona en algo al tema.

  

https://groups.google.com/g/publicesvfoxpro/c/4X6by9x0Cdc

Los comandos funcionan siempre y cuando se pongan en los eventos adecuados.

Tema resuelto.

Saludos,

Integral

[Danny Coral]

Podrías utilizar el método keypress del form, cuando presiones la tecla escape se cierre.

[integral]

Colega Danny :

Muy Buenos Días

Agradezco tus comentarios, pero lo que planteas no aplica como solución a mi consulta. Que ya resolví

Lo que planteas tambien lo utilizo en todos mis formularios...

Y respondiendo al Colega que me escribió pidiéndome un ejemplo del caso...

Dicen que un Ejemplo vale mas que mil palabras. A continuacion la explicacion :

Si deseas salir de un formulario con la tecla ESC

1) En el Evento Keypress del Formulario

DO CASE
      CASE nKeyCode = 27      && Tecla ESC
         Wait Window "Presiono la Tecla <ESC>, Cerrando la Ventana." Timeout 1
         Thisform.Release
ENDCASE

En Propiedades :  KeyPreview = .T.

2) Existe otro Evento en VFP que encontre en Internet hace mas de 20 años y lo aprendi de unos ejercicios del Profesor Carlos Castillo Peralta  (Universidad del Callao) 

     Aqui publico el link que contiene varios ejercicios si alguno desea descargado...

    

     https://www.lawebdelprogramador.com/cursos/FoxPro-Visual-FoxPro/1147-Guia-de-Visual-FoxPro.html#google_vignette

En Propiedades : QueryUnload

Poner el siguiente Codigo :

 

#DEFINE vfpYesNo     4
#DEFINE vfpYes       6
#DEFINE vfpQuestion 32
IF Messagebox("¿Desea Usted Cerrar el formulario?",;
            vfpQuestion + vfpYesNo, "Aviso del Sistema") = vfpYes Then
   Thisform.Release
   Release All                              && BORRA LAS VARIABLES CREADAS
Else
   NoDefault
Endif     

Hasta la Próxima

Saludos,

Integral

(Lima-Perú)