Tec. Numérico(Tô Apanhando Pacas!)
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
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
Anonymous
Curtidas 0
Respostas
Dantonds
02/02/2003
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.
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.
GOSTEI 0