teclado numerico virtual

[ecfisa]

Empezado por novato_erick

Gracias por tu instantanea respuesta me ayudo mucho estaba utilizando un if (cosa de novato no) olvidandome el Case ajajajajaj... bueno ya realize el codigo sin embargo al ejectutar no escribe en el Edit el numero deseado... tienes alguna idea el porque?

Gracias...

Volvemos atrás entonces... Como te dije antes son caracteres extendidos y por lo tanto no se visualizan como los comunes. Una vez evaluados tendrías que pasarlos a una variable.

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_NUMPAD0: Car:= '0';
    VK_NUMPAD1: Car:= '1';
    ...
  end;
end;

Espero que te haya entendido bién ahora...


Saludos.