Xailer & OZ Software

Hola a todos
Estoy realizando un modulo que necesito que se procese la tecla pulsada y
observo que cuando pulso una tecla se ejecuta dos veces el METHOD
MaskEdit1KeyDown( oSender, nKey, nFlags ) CLASS TForm1
Pongo un ejemplo de prueba
Gracias
Pepe


Attached files Prueba.zip (2.1 KB)Â

Solo agrega Return .f.
asi es como va
METHOD MaskEdit1KeyDown( oSender, nKey, nFlags ) CLASS TForm1
If nKey == VK_UP
MsgAlert("Pulsacion VK_UP")
return .f.
ElseIf nKey == VK_DOWN
MsgAlert("Pulsacion VK_DOWN")
return .f.
EndIf
RETURN Nil

Pedro gracias por tu ayuda ahora funciona Ok
Un saludo
Pepe
"Pedro de Leon Rodas" <pedro_deleon@hotmail.com> escribió en el mensaje
news:[email=463d2d79@ozsrv2.ozlan.local...]463d2d79@ozsrv2.ozlan.local...[/email]
> Solo agrega Return .f.
>
> asi es como va
>
> METHOD MaskEdit1KeyDown( oSender, nKey, nFlags ) CLASS TForm1
> If nKey == VK_UP
> MsgAlert("Pulsacion VK_UP")
> return .f.
> ElseIf nKey == VK_DOWN
> MsgAlert("Pulsacion VK_DOWN")
> return .f.
> EndIf
> RETURN Nil
>