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

Question

我希望在我的应用程序中有一个快捷键组合（如Ctrl + Alt + D）来调用函数，但我不希望快捷方式出现在任何菜单上。是否有可能在您的应用中提供否则可用的快捷方式，否则是不可见的？

Answer 1

您可以使用 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;

.

Answer 2

是的，它是可能的。您必须向表单添加类别的对象。 您可以为Taction指定键盘快捷键，然后将代码放在Tactact的事件中。

请注意，您无法将Tactact直接添加到您的表单中，您必须在表单上放置一个TactionList，然后您可以为您的TactionList添加一个Taction。