Quando quiser saber o valor de qualquer tecla coloque no evento OnKeyDown ou
OnKeyUp de um edit o seguinte código:
ShowMessage(IntToStr(Key));
No OnKeyPress não funciona para as teclas que não são caracter, como por
exemplo, Enter, Esc, BackSpace...
[As partes desta mensagem que não co
Olá estimado,
No keypress do form não daria certo ?
procedure Tform1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case UpCase(Key) of
'+' : soma;
'-' : menos;
'*' : multiplica;
'/' : divide;
'%' : porcentagem;
'=' : igual;
'0'..'9' : numeros;
#8 : backspa
2 matches
Mail list logo