descobrir codigo ascii da tecla

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

qualquer duvida me mande um email

renan@inforplay.com.br

---------------------------
uma simples dica pode ser uma grande resposta

Sei que não é a sua pergunta, mas só para complementar

Existe tambem a função Ord() que retorna o valor em Inteiro;
Exemplo:
ShowMessage(Intotostr(Ord(´A´)); // vai resultar 65

Para utilizar Ord com variaveis transforme-as em pchar
exemplo:
varivavel := ´B´;
ShowMessage(Intotostr(Ord(Pchar(variavel)))); // vai resultar 66


Marconi

já fiz um programinha com este código do renan ai, e não deu certo p/ todas as teclas.

Depois da sua implementação ai, dê uma coferida no resultado p/ ver se bate com a tabela ascii mesmo.