代码之家 › 专栏 › 技术社区 › rossmcm

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

tmenuitem taction shortcut menu delphi

7

rossmcm · 技术社区 · 14 年前

我想在我的应用程序中有一个快捷键组合(比如Ctrl+Alt+D)来调用函数,但我不想在任何菜单上出现快捷键。有没有可能在你的应用程序中有一个不可见的快捷方式?

2 回复 | 直到 13 年前

1

12

RRUZ 14 年前

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

2

8

Giacomo Degli Esposti 14 年前

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

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