Asignar Left Arrow Key a un BitBtn

[pampitasnowman]

Hola a todos! Estoy con una aplicación en Delphi 7, y necesito asignarles a dos BitBtn, las teclas de flecha izquierda y derecha respectivamente. Probé con la función onKeyPress del Form principal en donde están estos dos BitBtn:

Código Delphi [-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
   bitbtn1Click(bitbtn1);
end;

En el ejemplo tengo la tecla enter (#13), y con eso funciona perfecto, le asigno letras de teclado alfabético y también funciona, pero cuando les pongo las flechas izquierda y derecha (#37 y #39), no sucede nada.
El form principal tiene la propiedad:

Código Delphi [-]
KeyPreview := True;

Muchas gracias por su tiempo, saludos!

[roman]

El evento KeyPress no detecta esas teclas. Debes usar KeyDown o KeyUp, y siempre es más claro usar las constantes declaradas en lugar de los valores numéricos.

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

// Saludos

[pampitasnowman]

Muchas gracias! Funcionó perfecto!