如何在Delphi 11 Alexandria的VCL程序中让TApplicationEvents.OnShortCut仅响应带修饰键的按键？

阿华AIGC实验室

2026-5-1

解决TApplicationEvents.OnShortCut无修饰键时跳过处理的问题

我懂你的需求——你只想在按下Ctrl、Shift、Alt这类修饰键的前提下，才执行OnShortCut事件里的逻辑，单独按普通字母/数字键时直接跳过处理。在Delphi 11 Alexandria的VCL应用里，我们可以通过两种简单的方式实现这个判断：

方法一：使用Windows API `GetKeyState`

这是最直接的方式，通过API检查修饰键的实时状态：

procedure TformMain.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  HasModifier: Boolean;
begin
  // 检查是否有Ctrl、Shift、Alt键被按下（左/右修饰键都会被检测到）
  HasModifier := (GetKeyState(VK_CONTROL) < 0) or 
                 (GetKeyState(VK_SHIFT) < 0) or 
                 (GetKeyState(VK_MENU) < 0);

  // 无修饰键则直接退出，同时确保不拦截普通按键的默认行为
  if not HasModifier then
  begin
    Handled := False;
    Exit;
  end;

  // 这里写你的快捷键处理逻辑
  CodeSite.Send('TformMain.ApplicationEvents1ShortCut: Msg.CharCode', Msg.CharCode);
end;

代码说明：

GetKeyState返回值小于0，表示对应虚拟键当前处于按下状态（高位为1）。
VK_MENU是Alt键的虚拟键码，Windows里Alt键的内部标识就是Menu键。
设置Handled := False很重要，这样普通按键的默认行为（比如输入到TEdit）不会被意外拦截。

方法二：使用VCL内置函数`CheckShiftKeyState`

如果你更习惯VCL的风格，可以用这个函数直接获取当前按下的修饰键集合：

procedure TformMain.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  // 检查是否有任意修饰键（Ctrl/Shift/Alt）被按下
  if CheckShiftKeyState([ssCtrl, ssShift, ssAlt]) = [] then
  begin
    Handled := False;
    Exit;
  end;

  // 你的快捷键逻辑
  CodeSite.Send('TformMain.ApplicationEvents1ShortCut: Msg.CharCode', Msg.CharCode);
end;