Usas teclado numérico.

[emii89]

Gente, diseñé una calculadora y quiero que al apretar el teclado numérico, se presionen los botones de la calculadora. Se que es en el evento "on key press" pero no se como definirlo. Alguien podría ayudarme?

[ecfisa]

Hola emii89.

Te conviene usar el evento OnKeyDown y usar un case para evaluar la tecla presionada:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  
Shift: TShiftState);
begin
   case Key of
     VK_NUMPAD0: { tecla 0 del teclado numérico }
     VK_NUMPAD1: { tecla 1 del teclado numérico}
     ...
     VK_NUMPAD9: { tecla 9 del teclado numérico }
     VK_ADD          { '+' del tec. numérico }
     ...
   end;
end;

Los códigos "VK_.." , los tenés en la ayuda de Delphi. Sólo tenes que poner VK_ en la busqueda del help.

En ejemplo usé el evento OnKeyDown del Form por que no especificas quién es el que debe disparar el evento.

Saludos.

[*Caro*]

Hola emi89, añadiendo a lo que dice ecfisa, debes poner a True la propiedad KeyPreview de tu formulario y para que se ejecute lo que tienes en tus Bontones:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  
Shift: TShiftState);
begin
   case Key of
     VK_NUMPAD1: Button1.Click;
     VK_NUMPAD2: Button2.Click;
     VK_NUMPAD3: Button3.Click;
     VK_NUMPAD4: Button4.Click;
     ..........................
   end;
end;

Saluditos

[Faust]

Como una duda un poco relacionada... con estos métodos ¿en el formulario se visualiza la presión del control button?

[ecfisa]

Hola Faust.

Si te referís a que el botón baje y suba como si se hubiera realizado un click con el mouse, no.

Pero se puede escribir algo de código para hacerlo:

procedure TForm1.HacerClick(Sender: TButton);
begin
  with (Sender as TButton) do
  begin
    Perform(WM_LBUTTONDOWN, MK_LBUTTON,0);
    Sleep(250);   // un poco de espera para que se note...
    Perform(WM_LBUTTONUP, MK_LBUTTON,0);
  end;
end;

Y utilizarlo así :

....
  case Key of
     VK_NUMPAD0: HacerClick(Button0);
     VK_NUMPAD1: HacerClick(Button1); 
  end;
...

HacerClick, dispara el evento OnClick del ButtonX, como si se hubiese pulsado sobre él.

Saludos.

[Faust]

Oh si, eso me hubiera servido hace un par de años, pero tomo nota para futuras aplicaciones... gracias ecfisa