Delphi XE的RTTI增强，动态Hook某些内部事件

Delphi2010之后的RTTI做了很大休整，现在用起来很爽了哦。甚至可以获取某些类的内部私有单元，然后为其赋值！讲这个RTTI增强的，可以参考网上的多个博客内容，我列举一下：

Delphi2010RTTI的增强

Delphi的Anymouse方法探秘

万一的Rtti系列

 

我这里的主要目的是挂钩某些内部私有事件，然后增加上一些自己的处理过程，这里我以TMenuItem的私有内部事件FOnChange作为例程。 这个私有事件在菜单内部绑定，我们平常状态下，在外部无法更改！但是XE之后这个问题不在存在，使用它的全新RTTI，可以很容易的获得一个类对象的基本 上所有的类的字段以及方法和属性等。

 

begin
  rttiContext := TRttiContext.Create; 
  rtype := rttiContext.GetType(TMenuItem);
  rField := rType.GetField('FOnChange');
  if rField <> nil then
  begin
     V :