Fórum VK_A thru VK_Z NÃO FUNCIONA... #290707
03/08/2005
0
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
mas o Numpad funciona assim
e que eu queria colcoar assim
pois só quero letras e numeros
alguem me pode ajudar?
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
Curtir tópico
+ 0
Responder
Posts
03/08/2005
Marco Salles
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;
Responder
Gostei + 0
04/08/2005
Massuda
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)