Retirado do DTDelphi 2.8
{ - 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.
Vinicius dos Santos
Analista de Desenvolvimento Júnior
MSI SOLUÇÕES
Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br
----- Original Message -----
From: Adjalma Costa
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, April 16, 2008 3:36 PM
Subject: [delphi-br] String X pChar
Caros,
Estou tentando retornar o código ASCII de uma letra:
wPrimLetra := 'A';
ShowMessage( IntToStr( Ord( pchar( wPrimLetra ))) );
Mas dá o seguinte erro:
[Error] UnitCadPlacas.pas(742): E2008 Incompatible types.
Alguém poderia me ajudar?
sds
Adjalma
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
