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.
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
#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
Return to FiveWin para Pocket PC
Users browsing this forum: No registered users and 17 guests