如何以编程方式将操作添加到 Delphi 2010 中的操作管理器

Question

我正在尝试动态添加操作项，我可以添加该项目，并且当我这样做时它会起作用：

HostActionItem := ActionManager.ActionBars[0].Items[0].Items[2];
  NewItem := HostAction.Items.Add;
  NewItem.Action :=  MyActionToPerform;
  NewItem.Caption := Description;
  NewItem.ImageIndex := 1;
  NewItem.Tag := 13;

但是，当操作 Execute 方法触发时，我尝试从 Sender 对象获取 ActionComponent，如下所示：

  if (Sender is TAction) then
  tag := (Sender As TAction).ActionComponent.Tag;

但 ActionComponent 始终为零。为什么 ActionComponent 没有被初始化？

Answer 1

简短回答：

您期望 TActionClientItem 显示为 TAction 的 ActionComponent。这种情况不会发生，因为 TActionClientItem 不是从 TComponent 派生的。

更长的答案：

我相信您正在将项目添加到菜单栏。链接到菜单项的 TAction 似乎是有意设计的，不支持 ActionComponent。菜单栏的项目的类型为 TActionClientItem。这是一个“收藏品”，而不是一个“组件”。因此，在调用 所选项目的操作链接的执行方法。如果这听起来令人困惑，我想下面来自 VCL 源代码的引用会清楚地说明：

TBasicActionLink.Execute 方法：

function Execute(AComponent: TComponent = nil): Boolean; virtual;

传递的组件在它被分配之前被分配给 FAction.ActionComponent被执行。

如何从 TCustomActionMenuBar.ExecAction 调用：

FSelectedItem.ActionLink.Execute;

对于标题中的问题，除了设置 Caption 和 之外，我认为您没有做任何错误的事情TActionClientItem 的 ImageIndex 是不必要的，因为将显示 TAction 的标题和图像。