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