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
end;