delphi TApplicationEvents控件,响应程序级快捷键

在窗体中插入TApplicationEvents控件,然后设置它的onMessage事件即可

 

procedure TForm1.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean);
var
  AktywnaForma: TForm;
begin
  // 检查是否按下 CTRL 键并同时按下 F7 键
  if (Msg.wParam = VK_F7) and ((GetKeyState(VK_CONTROL) and $8000) <> 0) and Assigned(Screen.ActiveForm) then
  begin
    ShowMessage('CTRL+F7');
    // 在这里执行你想要的操作
  end;
end;

效果: