TAction.ShortCut 在动态创建的 TAction 中不起作用

Question

在Delphi XE5中：我的窗体上有一个TActionManager（称为ActionManager）和一个TRibbon（称为Ribbon）。我正在添加这样的自定义操作：

ActionBar := ActionManager.ActionBars.Add;
newAction := TAction.Create(MainForm.ActionManager);
newAction.Name := 'Topics';
newAction.Caption := 'Topics';
newAction.OnExecute := MainForm.HelpTopicsItemClick;
newMenu := ActionBar.Items.Add;
newMenu.Action := newAction;
newAction.ShortCut := TextToShortCut('F1');

之后，我将它们放在页面/选项卡和组中的功能区上：

rp := TRibbonPage.Create(ActionManager);
rp.Parent := Ribbon;
Ribbon.AddTab(rp).Caption := 'Help';
rg := TRibbonGroup.Create(ActionManager);
rg.Parent := rp;
rg.ActionManager := ActionManager;
rg.Caption := 'Help';
rg.ActionClient := ActionBar;

当我单击它时，该操作工作正常，但是当我按“F1”时，什么也没有发生。当我使用 Delphi 编辑器手动添加操作时，快捷方式工作正常。

我已经尝试过： newMenu.ShortCut := newAction.ShortCut

这没有帮助。我缺少什么？

Answer 1

当您创建新操作时，其 ActionList 属性不会自动设置为您通过 Create 提供的 Owner。您必须显式设置 ActionList 才能使其工作。

newAction := TAction.Create(MainForm.ActionManager);
newAction.ActionList := MainForm.ActionManager;
newAction.Name := 'Topics';