Delphi的有些组件中都包含.Data属性，比如TTreeNode，.Data属性可以认为是一个指针，可以指向任何类或者结构，方便后续操作。
但是TMenuItem没有.Data属性，下面介绍最简单的方法为TMenuItem增加.Data属性。
在需要使用的.pas文件前面写上如下代码
type //建议在最开始的type后面增加
TMenuItem = class(vcl.Menus.TmenuItem)
public
Data : TCustomData; //为菜单增加data属性
end;
需要注意的是，这种方法只能在本单元（或者说本窗口）中适用，如果在多个单元中使用，需要在每个单元中增加上面的代码。
————————————————
版权声明：本文为CSDN博主「李正己」的原创文章，遵循CC 4.0 by-sa版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/webouse/article/details/60954465