teclas F1,F2, F3 ....

[edelphi]

holas a todos los foreros bueno aqui les mando un porblemita que tengo y no se como solucionarlo.

Bueno se trata de que en un formulario comun y corriente de delphi al precionar las teclas de funcion F1-F2-F3... F12 me ejecute algo obviamente con el evento keypress pero lo que me falta serian los ascii de las teclas, o se puede hacer de otra manera. ojala me puedan ayudar.

Espero sus respuestas.

[dec]

Hola,

¿Algo así podría darte una idea?

Código Delphi [-]
uses
  Dialogs;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject;
 var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_F1: ShowMessage('Pulsaste la tecla F1, ¡bribón!');
    VK_F2: ShowMessage('Pulsaste la tecla F2, ¡borbón!');
    VK_F3: ShowMessage('Pulsaste la tecla F3, ¡borrón!');
    {...}
  end;
end;

procedure TForm1.FormKeyUp(Sender: TObject;
 var Key: Word; Shift: TShiftState);
begin
  // Como ves podría hacerse aquí también ;-)
end;