interface
uses
sysutils, classes,menus,toolsapi,controls,imglist,graphics,forms,comctrls,windows;
type
tntatest = class
private
fmainmenu:tmainmenu;//用来存贮delphi ide的主菜单
newmenu:tmenuitem;//我们将要插入的菜单
fimagelist:tcustomimagelist;//用来存贮delphi ide主菜单和工具栏的imagelist