VK_A thru VK_Z NÃO FUNCIONA...

Delphi

03/08/2005

esitve a ver uma tabela ascii e diz que o codigo das teclas de A Z é
VK_A e VK_Z, mas não funciona no delphi

VK_0 thru VK_9 are the same as ASCII ´0´ thru ´9´ VK_A thru VK_Z are the same as ASCII ´A´ thru ´Z´


mas o Numpad funciona assim
if (key in [ vk_NumPad0 .. vk_NumPad9]) then


e que eu queria colcoar assim

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key in [ vk_NumPad0 .. vk_NumPad9, vk_A .. vk_Z,vk_0 .. vk_9]) then
  executa;
end;


pois só quero letras e numeros

alguem me pode ajudar?


Porty

Porty

Curtidas 0

Respostas

Marco Salles

Marco Salles

03/08/2005

Tente evento OnKeyPress

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in [´0´..´9´,´a´..´z´,´A´..´Z´]) Then
    showmessage(´sim´)
else
  showmessage(´Não´);
end;



GOSTEI 0
Massuda

Massuda

03/08/2005

Faça como o Marco Salles indicou... A observação que você citou...
VK_0 thru VK_9 are the same as ASCII ´0´ thru ´9´ VK_A thru VK_Z are the same as ASCII ´A´ thru ´Z´
...vem do arquivo original da MS (winuser.h do PSDK). Portanto, esses símbolos não são definidos porque seriam redundantes.


GOSTEI 0
POSTAR