怎样遍历TActionManager中的TAction ?

[DeadWolf]

TAction 继承自 TContainedAction

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


Action1 为 TAction
ActionManager1.Actions[i] 为 TContainedAction

[beerhehua]

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

[lxpbuaa]

Action1 := TAction(ActionManager1.Actions[i]); 即可。

VCL为了定义的统一，所以将Actions[i]声明为TContainedAction ，但TActionManager.Actions[i]实际为TAction，故强制转化即可。

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————