Por favor, sigue nuestras normas, procura escribir lo más correctamente que puedas, no cobramos por palabras escritas, gracias :)

Hola José.

Bueno, entonces la situación es clara, si no tenes KeyPad es obvio que no podes detectar la presión de sus teclas...

Saludos.

Nelsonya
 

begin
case Key of
VK_NUMPAD0 : VISOR.Caption:= '0'; // Tecla 0 del Keypad
VK_NUMPAD1 : VISOR.Caption:= '1';
VK_NUMPAD2 : VISOR.Caption:= '2';
VK_NUMPAD3 : VISOR.Caption:= '3';
VK_NUMPAD4 : VISOR.Caption:= '4';
VK_NUMPAD5 : VISOR.Caption:= '5';
VK_NUMPAD6 : VISOR.Caption:= '6';
VK_NUMPAD7 : VISOR.Caption:= '7';
VK_NUMPAD8 : VISOR.Caption:= '8';
VK_NUMPAD9 : VISOR.CAPTION:= '9';// Tecla 9 del Keypad
//VK_MULTIPLY : // Tecla multiplicación (numeric keypad)
//VK_ADD : // Tecla suma (numeric keypad)
//VK_SEPARATOR: // Tecla separador (numeric keypad)
//VK_SUBTRACT : // Tecla resta (numeric keypad)
//VK_DECIMAL : // Tecla decimal (numeric keypad)
//VK_DIVIDE : // Tecla división (numeric keypad)
end;

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

Y recuerda poner los tags al código fuente, ejemplo:



Gracias :)