德爾福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後裔聲明的屬性上投地。