topic-17013

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Salir con la tecla ESCAPE
Posted: Mon Oct 12, 2009 03:36 AM

Vengo utilizando desde hace mucho tiempo las ventanas MDICHILD con tbrowse teniendo el foco y en ese caso utilizando el ESC salgo totalmente al menú superior. El caso es que recientemente me han pedido una aplicación en la que por deseo explícito del cliente, debo utilizar Get antes de llegar al tBrowse y... al presionar la tecla Esc se borra el dialogo que contiene la ventana MDICHILD pero no se borra ésta última dando una feísima impresión. ¿A alguien le ha sucedido esto? y ¿Como lo solucionaron?

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Loren

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Re: Salir con la tecla ESCAPE
Posted: Mon Oct 12, 2009 06:47 AM

Armando...

no estoy seguro, pero prueba haber con "GetKeyState".... algo así como:

Code (fw): Select all Collapse

define dialog odlg2 ....
  ...
  ...
  ...
activate dialog odlg2 center valid iif(GetKeyState(VK_ESCAPE),cerrar(),.f.) 

funct cerrar()
 odlg2:end()
 odlg1:end() && dialog que contiene el get.
return .t.

Espero te sirva... un saludo.
LORENZO

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: Salir con la tecla ESCAPE
Posted: Mon Oct 12, 2009 05:02 PM

Lorenzo, muchísimas gracias. Tu consejo fue el adecuado, ahora puedo salir desde cualquier punto del dialogo que está contenido en la ventana MdiChild. Puse lo siguiente, en mi código:

valid iif(GetKeyState(VK_ESCAPE),(mi_Mdichild:end(), mi_dialogo:end()),.f.)

Gracias mil por el consejo.
Armando

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

FiveTech Support Forums

Continue the discussion