Delphi 5将类型转换为评估类型导致无效类型转换错误

Question

我需要将Variant 转换为TNotifyEvent，但不能。

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

在运行时，这始终是 TNotifyEvent 的类型，但是当我尝试将其转换为 TNotifyEvent 时，代码无法编译。

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

Answer 1

你调用了错误的方法。你需要GetMethodProp 而不是GetPropValue。像这样：

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