calculadora cientifica

[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;