Teclas del cursor

[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.

[Mauricio]

Hola Salvador,

que browse utilizas?

[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.

[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

[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.