Como utilizar las teclas F1,F2,F3 para procedimientos

[negrokau]

Hola a todos, me encuentro con un inconviente, quiero darle un poco de uso en mi sistema al teclado, para no depender mucho del mouse, como la hago para que al presionar la Tecla F1 por ejemplo haga GUARDAR.click;

se como hacer funcionar el enter y algunas otras teclas, lo que no se es como hacer funcionar la tecla F1, les agradeceria mucho la ayuda, gracias..

[marcoszorrilla]

Código Delphi [-]
procedure TfralbaFact.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_F1 then
  Guardar.Click;
end;

En la propiedad KeyPreview del formulario pon True;

Un Saludo.

[*Caro*]

Hola negrokau, en la ayuda escribe "Virtual key codes", para que veas las constantes de las demas teclas.

Saluditos

[negrokau]

buenisimo... muchas gracias....

[[escafandra]]

A pesar de que está solucionado, no está de mas recordar la API RegisterHotKey. Un ejemplo de uso lo tienes en este hilo.


Saludos.