teclado numerico virtual

[novato_erick]

Hola chicos:

Estoy realizando un formulario que simule una caja registradora necesito saber precisamente como podria hacer que un Button al apretarlo en una pantalla tactil o con el mouse tenga el mismo valor que el teclado numerico.


Saludos;

[Ferrari]

Con que version de delphi estas trabajando...pork en delphi 2010 ya cuentas con un teclado virtual...salu2

[Enan0]

No Seria tan complicado Lo que tenes que hacer.
Pones un TEXT.Box
en el evento OnKeyPress

Capturas ese valor y te fijas el Char que envia (podes convertirlo a EXA y tenes el Valor de la tecla).

Luego en cada Boton de tu teclado Virutal, asignas el valor que queres ante el evento on Click

saludos

[ecfisa]

Hola novato_erik.

En realidad, el TButton no va poder tomar el valor de la tecla pulsada. Vas a tener que utilizar una variable
de tipo Word, que almacene el valor de la tecla que representa el TButton que ha sido pulsado.

Para asignar el valor te puede orientar la ayuda de Delphi. Busca : Virtual Key codes, son mnemónicos que
representan códigos generados por el teclado extendido. ( como es el caso de las teclas del del NumPad )
Normalmente se evalúan en el evento OnKeyDown, ya que este pasa por referencia la variable Key como una palabra.

Saludos.

[novato_erick]

En el evento OnKeyDown es en el formulario en en el Button?

Cree ya la variable NumTeclado : Word; {Variable con el tipo word}

tambien le dije que esa variable almacenara el valor de VK_NUMPAD1 que pertenece al Virtual key Codes.

Lo e intentado en el Button con el evento OnKeyDown y nada...

Saludos;

[ecfisa]

Hola.

No no, en el TButton, tendrías que hacer algo como:

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

Con respecto a la captura de la tecla quizá te convenga poner a True la propiedad KeyPreview del Form y usar su evento OnKeyDown:

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

Saludos.

[roman]

Yo lo que haría es esto:

Pongo un Edit y diez botones en el formulario. A cada botón le asigno a su propiedad Tag, el numero que le corresponda (0 al botón 0,1 al botón 1, 2 al botón 2, etc.). Luego asigno a todos los botones un mismo evento OnClick así:

Código Delphi [-]
procedure TForm1.ButtonClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + Chr(Ord('0') + (Sender as TControl).Tag);
end;

// Saludos