德尔福XE2：在TAcionManager对象

Question

我想重复的动作，如果有一种方法，通过TActions在TActionManager迭代没有了传统的我：对...但在代码中使用迭代器= 0像

for (action in actionManager.actions) do 
begin 
... 
end; 

它不起作用。 我试了很多，总是有相同的结果。

是不可能的或我做错了什么？

谢谢！ M.

Answer 1

动作管理器提供的枚举器提供的动作类型为TContainedAction。它由动作管理器类提供，以便您可以直接枚举动作管理器。你的代码试图迭代ActionManager.Actions，这是不可能的，因为Actions是一个索引属性。你不能遍历其中的一个。

所以，你的代码需要看起来像这样：

var 
    Action: TContainedAction; 
.... 
for Action in ActionManager do 
begin 
    .... 
end; 

您可能需要使用as如果要访问在的TContainedAction后裔声明的属性上投地。