创建没有相应菜单项的Delphi应用程序快捷方式

你可以用 OnShortCut 事件 TApplicationEvents 此任务的组件

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
  if (Msg.CharCode = Ord('D')) and (HiWord(Msg.KeyData) and KF_ALTDOWN <> 0) and  (GetKeyState(VK_CONTROL) < 0) then
  begin
    ShowMessage('Ctrl+Alt+D Pressed') ;
    Handled := true;
  end;
end;

您可以为Taction指定一个键盘快捷键,然后将代码放入EventOneExecute中。

请注意,不能直接向表单中添加触觉,必须在表单中添加触觉列表,然后才能向触觉列表中添加触觉。