[Juampi]

Empezado por AgustinOrtu

No me percate de que estabamos hablando de Lazarus

En un momento me imaginé que venía por ese lado el tema.

Empezado por AgustinOrtu

Acabo de hacer esta sencilla prueba y me funciona bien:

Código Delphi [-]
uses
  LCLType;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_NUMPAD0 then
     ShowMessage('VK_NUMPAD0');

  if Key = VK_MULTIPLY then
     ShowMessage('VK_MULTIPLY');
end;

Obvio que es necesario tener KeyPreview a True

¿Dónde iría el "uses LCLType;"?, porque lo puse inmediatamente antes del procedure tal cual lo tienes ahí y cuando compilo me pone:

"Fatal: Syntax error, "BEGIN" expected but "USES" found"

Actualmente el código está así:

Código Delphi [-]
{___________________________________________________________________________________________________  _________________________________________________________

--- EVENTO KEYDOWN ---
____________________________________________________________________________________________________  _________________________________________________________}

uses LCLType;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

 {BOTÓN 0}

  if key = 96 then
  begin
    btn0.Click;
  end;

 {BOTÓN 1}

  if key = 97 then
  begin
    btn1.Click;
  end;

 {BOTÓN 2}

  if key = 98 then
  begin
    btn2.Click;
  end;

 {BOTÓN 3}

  if key = 99 then
  begin
    btn3.Click;
  end;

 {BOTÓN 4}

  if key = 100 then
  begin
    btn4.Click;
  end;

 {BOTÓN 5}

  if key = 101 then
  begin
    btn5.Click;
  end;

 {BOTÓN 6}

  if key = 102 then
  begin
    btn6.Click;
  end;

 {BOTÓN 7}

  if key = 103 then
  begin
    btn7.Click;
  end;

 {BOTÓN 8}

  if key = 104 then
  begin
    btn8.Click;
  end;

 {BOTÓN 9}

  if key = 105 then
  begin
    btn9.Click;
  end;

 {BOTÓN <}

  if key = 08 then
   begin
     btnBS.Click;
   end;

  {VK_MULTIPLY}

    if key = 106 then
   begin
     btnMultiplicacion.Click;
   end;

  {VK_ADD}

  if key = 107 then
   begin
     btnSuma.Click;
   end;

  {VK_SUBTRACT}

  if key = 109 then
   begin
     btnResta.Click;
   end;

  {VK_DECIMAL}

  if key = 110 then
   begin
     btnComa.Click;
   end;

  {VK_DIVIDE}

  if key = 111 then
   begin
     btnDivision.Click;
   end;

  {VK_RETURN}

  if key = 13 then
   begin
     btnIgual.Click;
   end;

end;

Gracias.