怎样遍历TActionManager中的TAction ?

TAction 继承自 TContainedAction 为什么
Action1 := ActionManager1.Actions[i];
编译错误 Incompatible Types:'TAction' and 'TContainedAction'
Action1 为 TAction 
ActionManager1.Actions[i] 为 TContainedAction 

解决方案 »

  1.   

    Action1 为 TAction 
    ActionManager1.Actions[i] 为 TContainedAction 
    能将父类赋值给子类吗
      

  2.   

    Action1 := TAction(ActionManager1.Actions[i]); 即可。VCL为了定义的统一，所以将Actions[i]声明为TContainedAction ，但TActionManager.Actions[i]实际为TAction，故强制转化即可。————————————————————————————————————
    宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
    ————————————————————————————————————