为TMenuItem增加指针Data属性

Delphi的有些组件中都包含.Data属性，比如TTreeNode，.Data属性可以认为是一个指针，可以指向任何类或者结构，方便后续操作。

但是TMenuItem没有.Data属性，下面介绍最简单的方法为TMenuItem增加.Data属性。

在需要使用的.pas文件前面写上如下代码

type  //建议在最开始的type后面增加
  TMenuItem = class(vcl.Menus.TmenuItem)
  public
    Data : TCustomData;  //为菜单增加data属性
  end;

需要注意的是，这种方法只能在本单元（或者说本窗口）中适用，如果在多个单元中使用，需要在每个单元中增加上面的代码。