teclas

Delphi

31/03/2003

boa tarde usei o codigo para capturar teclas

[b:49da302247]ShowMessage(´O nº da tecla: ´+Char(ORD(Key))+´ é => ´+IntToStr(key));[/b:49da302247]

e ele me dá q a tecla ´+´ possue o valor 107, mas não esta dando ... tentei
if key=#107 then
e não deu ... alguém sabe o código dessa tecla?


Anonymous

Anonymous

Curtidas 0

Respostas

Nildo

Nildo

31/03/2003

Use pelo KeyPress. O KeyDown só é usado para as letras e numeros do teclado.


GOSTEI 0
Anonymous

Anonymous

31/03/2003

mas estou tentando no keypress


GOSTEI 0
Nildo

Nildo

31/03/2003

Substitua

Char(ORD(Key))

por
inttostr(ORD(Key))


GOSTEI 0
Dor_poa

Dor_poa

31/03/2003

MAS É 107 MESMO.. Em que evento e em qual objeto esta colocando este codigo??? vc. nao pode esquecer que tem que passar a propriedade keyPreview para True..


GOSTEI 0
Anonymous

Anonymous

31/03/2003

uso um dbedit ...


GOSTEI 0
Dor_poa

Dor_poa

31/03/2003

e a propriedade keyPreview do form já esta em True?


GOSTEI 0
Anonymous

Anonymous

31/03/2003

sim esta ...


GOSTEI 0
Nildo

Nildo

31/03/2003

Mostre todo seu código por favor


GOSTEI 0
Anonymous

Anonymous

31/03/2003

Olaaaa
bom estive sumido, mas as vezes é bom dar as caras ....
estive com esse problemas a um tempinho atras ... cara tente assim

if key=´+´ then
begin

parece estranho mais funciona ... falow cara


Fernando Souza
Votorantim-SP


GOSTEI 0
Anonymous

Anonymous

31/03/2003

Valeu blek4ute , funcionou
nossa q sufoco heheh
Vê se não some cara.


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

31/03/2003

pra que Char(ORD(Key))?
Você transforma caracter em numero e depoi de volta em caracter

no evento on key press faça
ShowMessage(´O nº da tecla: ´+ Key + ´ é => ´+ord(key)); 



GOSTEI 0
POSTAR