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.

[novato_erick]

Dejame ver si te entiendo:
dices mi variable el cual almacena cada caracter es NumTeclado que es de tipo word;

este es mi codigo

Código Delphi [-]
 procedure Tfrmfactura.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
   VK_NUMPAD0: NumTeclado:= '0';
   VK_NUMPAD1: NumTeclado:= '1';
   VK_NUMPAD2: NumTeclado:= '2';
   VK_NUMPAD3: NumTeclado:= '3';
   VK_NUMPAD4: NumTeclado:= '4';
   VK_NUMPAD5: NumTeclado:= '5';
   VK_NUMPAD6: NumTeclado:= '6';
   VK_NUMPAD7: NumTeclado:= '7';
   VK_NUMPAD8: NumTeclado:= '8';
   VK_NUMPAD9: NumTeclado:= '9';
   end;
end;

y en el Button1 y asi sucesivamente para cada button2, etc.

Código Delphi [-]
procedure Tfrmfactura.Button10Click(Sender: TObject);
begin
 NumTeclado:= VK_NUMPAD0;
end;

me e equivocado en algo porque el compilador me desconce el tipo word y chard.

Gracias por tu ayuda

[ecfisa]

Hola erik.

No, la variable NumTeclado no te va a servir. Tendrías que crearte otra de tipo Char para almacenar el caracter a visualizar.
En realidad no sé que uso le dás a NumTeclado. No digo que esté demás, por que podés usarla con otro fin que desconozco...

Saludos.

[novato_erick]

Tengo entendido que necesito almacenar los caracteres en una variable para eso utilizo NumTeclado ahi guarda todos los valores de tipo word sin embargo tambien creo otro con valor de tipo char y aun asi me manda el error.

[DCC Error] factura.pas(231): E2010 Incompatible types: 'Word' and 'Char'

Gracias...

[ecfisa]

Hola Erick.

Por el tipo de error me atrevo a decir que estas intentando asignar una variable de tipo Word a una de tipo Char.

¿ Podrías poner la parte del código donde asignas el valor de la tecla presionada a la variable tipo Char ?

Seguro que ahí nos damos cuenta lo que sucede.

Saludos.