如何遍历菜单,取出菜单名--在线等待

Question

我用的是Delphi6,使用ActionManager对Action进行控制,
现在我想控制菜单的显示 就是 Enabled是否为True.满足条件的True
我用的是Action的Caption属性进行控制的,可怎么也无法取出Action的Caption属性
我用的是变历的方法,一个一个取当然没问题
请各位高手给与指点

Answer 1

for i := 0 to ActionList1.ActionCount-1 do
  ShowMessage(TCustomAction(ActionList1.Actions[i]).Caption);

Answer 2

ActionManager也一样，
for i := 0 to ActionManager1.ActionCount-1 do
  ShowMessage(TCustomAction(ActionManager1.Actions[i]).Caption);