Gracias GUSTAVO:
Pero como haria para capturar las teclas que me mencionas:
>teclas como Shift-F2 o Ctrl-F3, etc.
Saludos
Gustavo Biasone <gb_guvoa@...> escribió:
Pero como haria para capturar las teclas que me mencionas:
>teclas como Shift-F2 o Ctrl-F3, etc.
Saludos
Gustavo Biasone <gb_guvoa@...> escribió:
La tecla F10 envia un mensaje distinto a las demas teclas de funcion. Este mensaje es WM_SYSKEYDOWN .Sin embargo no es posible capturar este mensaje en el dispatch() del databrowser ya que es interceptado antes por la ventana activa, la cual usaria este mensaje para activar su menu.Algo parecido ocurre con la tecla ALT.Te recomendaria que uses otra combinacion de teclas como Shift-F2 o Ctrl-F3, etc.GB----- Original Message -----From: Jose CorderoTo: guvoaII@...Sent: Thursday, December 08, 2005 9:09 PMSubject: [guvoaII] Consulta sobre la tecla ALT-F10Que tal lista, tengo creado un método Dispatch() de un DataBrowser, pero no he logrado captura la telca ALT+F10, alguien de ustedes ha hecho algo parecido?
METHOD Dispatch( oEvent ) CLASS MyBrowser
LOCAL DIM aKeyStates[256] AS BYTE
LOCAL nHFlag AS DWORD
LOCAL hChild AS PTR
IF oEvent:Message==WM_COMMAND
nHFlag:=HiWord(oEvent:wParam)
*?nHFlag
*?"----------"
*WAIT
DO CASE
CASE nHFlag=CN_ENTER // ENTER -Editar
IIF( IsMethod(SELF:Owner:Owner,#PBEditar), SELF:Owner:Owner:PBEditar() ,"")
CASE nHFlag=CN_ESCAPE // ESCAPE -Salir
IIF( IsMethod(SELF:Owner:Owner,#PBCerrar), SELF:Owner:Owner:PBCerrar(),"")
CASE nHFlag=CN_F1 // F1 -Infor(Información)
IIF( IsMethod(SELF:Owner:Owner,#Info), SELF:Owner:Owner:Info(),"" )
CASE nHFlag=CN_F2 // F2 -Ver (ordenar)
IIF( IsMethod(SELF:Owner:Owner,#Ver), SELF:Owner:Owner:Ver(),"" )
CASE nHFlag=CN_F3 // F3 -Buscar
IIF( IsMethod(SELF:Owner:Owner,#Buscar), SELF:Owner:Owner:Buscar(),"")
Lo que he logrado es solo trabajar con estas teclas F1,F2,F3, ENTER Y ESC, lo que necesito es activar la tecla ALT-F10 y activar un MENUCONTEXTUAL
Desde ya gracias
Do You Yahoo!? La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. http://net.yahoo.com.mx
Do You Yahoo!? La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. http://net.yahoo.com.mx