Page 1 of 1
Teclas del cursor
Posted: Tue Nov 10, 2009 8:19 pm
by Salvador
Hola.
Necesito procesar la pulsación de las teclas del cursor de una PDA con WMB6 .
He probado con los eventos bKeyDown y bKeyChar del dialogo pero no consigo detectar su pulsación.
¿Puede alguien echarme un cable?.
Gracias.
Re: Teclas del cursor
Posted: Wed Nov 11, 2009 1:19 am
by Mauricio
Hola Salvador,
que browse utilizas?
Re: Teclas del cursor
Posted: Wed Nov 11, 2009 10:57 am
by Salvador
No es un browse es un dialogo con botones.
Pretendo que al pulsar las teclas del cursor se activen determinados botones del dialogo.
Pero al parecer el dialogo no procesa las teclas del cursor en el evento bKeyDown del dialogo.
Probado en el emulador.
Re: Teclas del cursor
Posted: Thu Nov 12, 2009 9:00 am
by Mauricio
Hola Chava:
que emulador es, estoy probando con el emulador de Microsoft y funciona perfecto.
Code: Select all
DEFINE DIALOG oDlg RESOURCE 'Vender2' TITLE "Catalogo de Clientes"
oDlg:bKeyDown := { | nKey, nFlags | msginfo(nKey)}
REDEFINE LISTBOX oLbx FIELDS substr(clientes->Nombre,1,20), transform(clientes->Saldo,'999,999.99'),;
clientes->Direccion, str(clientes->Codigo,6);
HEADERS "Nombre","Saldo", "Dirección","Código" ID 100 OF oDlg FONT oFont2
oLbx:bKeyChar := { | nKey, nFlags | Search(nKey), oLbx:Refresh()}
oLbx:aJustify := {.f., .t., .f., .f.}
oLbx:nClrBackFocus := {|| rgb(100,170,208) }
ACTIVATE DIALOG oDlg CENTERED
podes probar con ese y confirmanos si funciona, seria bueno saber que emulador tenes, para ver si alguien del foro lo esta usando y puede probar.
si gustas, pasame tu codigo y lo pruebo en una Hand held Dolphin 7600 y podemos ver si funciona.
si gustas, pasame tu msn y lo revisamos
saludos,
Mauricio
Re: Teclas del cursor
Posted: Thu Nov 12, 2009 12:12 pm
by Salvador
Mauricio,
Este código prbado en el emulador de Windows Mobile 6 profesional no procesa las teclas del cursor:
Code: Select all
#include "FWCE.ch"
function Main()
local oDlg
DEFINE DIALOG oDlg TITLE "Inkey test" ;
SIZE 200, 100 COLOR "N/G"
oDlg:bKeyDown := {| nKey, nFlag| Msginfo(nKey) }
@ 1.8, 6 BUTTON "End" ACTION oDlg:End() SIZE 30, 10
ACTIVATE DIALOG oDlg CENTERED ;
return nil
Gracias por tu atención.