delphi 让ActionList里的action失效

Question

for i := 0 to self.ActionList1.ActionCount-1 do
begin
   ActionList1.actions[i].Enabled:=false
end;
这样写为什么会报错，我想让ActionList1里的所有action失效要怎么写呢？

Answer 1

for i := 0 to self.actmgrActionList1.ActionCount-1 do
begin
  TAction(actmgrActionList1.actions[i]).Enabled:=false
end;

Answer 2

actmgrActionList1.actions[i]类型为TContainedAction
TAction继承自TCustomAction-TContainedAction
TContainedAction没有Enabled这个属性,需要转型