FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour COMBOBOX y VK_ESCAPE
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM

COMBOBOX y VK_ESCAPE

Posted: Mon Mar 07, 2011 05:16 PM

Hola a todos,

Estoy intentando que cuando un COMBOBOX de una MDICHILD tenga el foco pueda cerrar la ventana pulsando la tecla VK_ESCAPE, y no lo consigo.

Estoy probando haciendo esto:

oTitulari:bKeyDown := {| nKey , nflags | If( nKey = VK_ESCAPE, oDomici10:End(), Nil ) }

y esto otro:

oTitulari:bKeyChar := {| nKey , nflags | If( nKey = VK_ESCAPE, oDomici10:End(), Nil ) }

y no hay manera; no quiere cerrar la ventana.

Cómo lo harían ustedes?

Gracias.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM

Re: COMBOBOX y VK_ESCAPE

Posted: Wed Mar 09, 2011 08:56 PM

Nadie sabe cómo hacerlo?

Bueno encenderé unas velas...

Gracias.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: COMBOBOX y VK_ESCAPE

Posted: Wed Mar 09, 2011 09:15 PM

Se me ocurre que tendrías que modificar la clase, en el método KeyChar() deberías definir la tecla escape y la acción que deseas que realice. No lo probé pero supongo que tiene que funcionar.
Salu2

Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM

Re: COMBOBOX y VK_ESCAPE

Posted: Fri Mar 11, 2011 03:43 PM
horacio wrote:Se me ocurre que tendrías que modificar la clase, en el método KeyChar() deberías definir la tecla escape y la acción que deseas que realice. No lo probé pero supongo que tiene que funcionar.
Salu2


Gracias Horacio

Una de las premisas que intento no saltarme es no maniplar las clases de FiveWin, para evitar mantenimientos futuros y sobre todo en funcionalidades que considero que deberían ser de 'fábrica'.

A ver si tengo suerte y Antonio ve una solución más 'elegante'.

Gracias

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Continue the discussion