varias Fn en un mismo formulario

[feliz-58]

Mis saludos para todos en el club.

Tengo la siguiente forma para usar las funciones en un formulario:

Código Delphi [-]
If key = vk_F1 
Then
Button1.click;

Cual seria la forma para agregar varias funciones?

Intente:

Código Delphi [-]
If key = vk_F1 
Then
Button1.Click;

If key = vk_F2
Then 
Button2.click;

Pero no funciono. Se ejecutan los dos cuando le das a F1.

SALUDOS A TODOS.

[ecfisa]

Empezado por feliz-58

...
Intente:

Código Delphi [-]
If key = vk_F1 
Then
Button1.Click;

If key = vk_F2
Then 
Button2.click;

Pero no funciono. Se ejecutan los dos cuando le das a F1.

Hola.

Si el form tiene la propiedad KeyPreview = True y ese código está en el evento OnKeyDown del form tiene que funcionar correctamente, llamando al método OnClick de Button1 cuando se presione F1 y OnClick de Button2 cuando se presione F2.

¿ En que evento del form está el código ?

Saludos.

[ecfisa]

Hola de nuevo.

Olvidé mencionarte que cuando las teclas a evaluar son muchas es más simple hacerlo de este modo:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
   VK_F1: Button1.Click;
   VK_F2: Button2.Click;
   VK_F3: Button3.Click;
   ...
  end;
end;

Saludos.

[feliz-58]

Empezado por ecfisa

Hola.

Si el form tiene la propiedad KeyPreview = True y ese código está en el evento OnKeyDown del form tiene que funcionar correctamente, llamando al método OnClick de Button1 cuando se presione F1 y OnClick de Button2 cuando se presione F2.

¿ En que evento del form está el código ?

Saludos.

Hice todo eso, pensaba lo mismo pero me hacia el error que te comente.
Saludos!

[feliz-58]

Empezado por ecfisa

Hola de nuevo.

Olvidé mencionarte que cuando las teclas a evaluar son muchas es más simple hacerlo de este modo:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
   VK_F1: Button1.Click;
   VK_F2: Button2.Click;
   VK_F3: Button3.Click;
   ...
  end;
end;

Saludos.

Excelente, funciono perfectamente.

Gracias.
Saludos!