Código Delphi [-] procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_NUMPAD0 : // Tecla 0 del Keypad VK_NUMPAD1 : ... VK_NUMPAD9 : // 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; end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_NUMPAD0 : // Tecla 0 del Keypad VK_NUMPAD1 : ... VK_NUMPAD9 : // 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; end;