Ver Mensaje Individual
  #2  
Antiguo 08-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola emii89.

Te conviene usar el evento OnKeyDown y usar un case para evaluar la tecla presionada:

Código:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  
Shift: TShiftState);
begin
   case Key of
     VK_NUMPAD0: { tecla 0 del teclado numérico }
     VK_NUMPAD1: { tecla 1 del teclado numérico}
     ...
     VK_NUMPAD9: { tecla 9 del teclado numérico }
     VK_ADD          { '+' del tec. numérico }
     ...
   end;
end;
Los códigos "VK_.." , los tenés en la ayuda de Delphi. Sólo tenes que poner VK_ en la busqueda del help.

En ejemplo usé el evento OnKeyDown del Form por que no especificas quién es el que debe disparar el evento.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita