delphi - 如何从TActionManager获取所有TAction？

Question

我的应用程序中有一个 TActionManager，其中定义了所有操作。我需要获取其所有操作的列表；目前，使用其 Actions 属性，我可以获取该操作的“路径”(GetNamePath)，但我还想获取其标题。

是否可以从操作管理器获取所有操作？

Answer 1

Actions[] 属性返回一个TContainedAction，它是一个低级基类。您需要将其向上转换为适当的派生类。例如，如果您的操作管理器包含 TAction 实例，那么您可以执行以下操作:

for i := 0 to ActionManager1.ActionCount-1 do begin
  Writeln((ActionManager1.Actions[i] as TAction).Caption);
end;

如果您要从 TCustomAction 派生自定义操作，请在您的类型转换中使用它。

显然，您可能希望使用 is 来检查操作的实际运行时类型并避免运行时转换错误。