Delphi 如何以编程方式执行TShortcut？

如何实现

DoExecuteThisShortCut

呢？

E.g.可以为您提供带有shift状态的虚拟键并模拟击键。谢谢，这就解决了问题。如何将此问题标记为已解决？如果您的应用程序没有输入焦点，该怎么办？在我使用此选项的特定情况下，应用程序确实有输入焦点。可以使用GetFocus 0进行检查

procedure ExecuteAShortCut(AShortCut: System.Classes.TShortCut);
begin
  // This will have the same effect as when the user presses this shortcut on the keyboard:
  DoExecuteThisShortCut(AShortCut);
end;