请问如何遍历动作列表构件(TactionList)里面的各子项。

Question

var
  I: Integer;
begin
  for I := 0 to ActionList1.ActionCount - 1 do
    ShowMessage(ActionList1.Actions[I].Name);
end;

Answer 1

TO  zswang(伴水)(* pascal→c *) 
可是我却不能访问 ActionList1.Actions[I].Enabled 这个属性，为什么？

Answer 2

TAction(ActionList.Actions[I]).Enabled

Answer 3

//同意cfm//强制转换
var
  I: Integer;
begin
  for I := 0 to ActionList1.ActionCount - 1 do
    TAction(ActionList1.Actions[I]).Enabled := Odd(I);
end;