//Adicione um Label no form;
//Mude a propriedade KeyPreview do form para true;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Label1.Caption := Format('Código ASCII da letra ' + key + ' é: %d', [Key]);
end;
Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】
Nenhum comentário:
Postar um comentário