Delphi

Вопрос

Как отловить нажатие клавиш F1..F10?

Ответ

procedure TForm1.AppMessage(var Msg:TMsg; var Handled: Boolean);
begin
  case msg.wParam of
      VK_F1..VK_F10 :
     case Msg.message of
     WM_KEYUP: ShowMessage('Key up');
   WM_KEYDOWN: ShowMessage('Key down');
          end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    Application.OnMessage := AppMessage;
end;

Из конференции Delphi