Tec. Numérico(Tô Apanhando Pacas!)

02/02/2003

1

Como descobrir os códigos dos teclados numéricos? Meu programa foi feito com teclado Alfanumérico. Como criar códigos para esses teclados?
O q devo fazer? Não tenho nenhum mapa do teclado que diz assim: A primeira tecla, por ex.:, vale 06 ou 03Hex. ou etc.. Isto é q está me matando. Alguém me ajuda?! O teclado é o GERTEC 44 Mini Din/Din


Responder

Posts

02/02/2003

Dantonds

Eu tenho um código para descobrir o valor das teclas em ASCII.
Talvez te ajude, no meu teste funcionou.

- Coloque um Label no form (Label1);

- Mude a propriedade KeyPreview do form para true;

- Altere o evento OnKeyDown do form como abaixo: }

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption :=
Format(´O código da tecla pressionada é: ¬d´, [Key]);
end;
Observações

Para testar execute e observe o Label enquanto pressiona as teclas desejadas.

Espero ter ajudado.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira