Delphi 5将类型转换为计算类型会导致无效的类型转换错误

Question

我需要转换Variant为TNotifyEvent,但不能.

如图所示我GetPropValue用来获取a的OnClick属性TMenuItem.我必须将它与另一个进行比较TNotifyEvent,所以我必须将其转换为TNotifyEvent.

在运行时,这总是类型TNotifyEvent,但是当我尝试将其转换为代码时,代码无法编译TNotifyEvent.

我怎样才能使它工作？不幸的是我只有Delphi版本5,因此RTTI功能有限.

Answer 1

你正在调用错误的方法.而不是GetPropValue你需要GetMethodProp.像这样:

TNotifyEvent(GetMethodProp(MenuItem, 'OnClick'));