向Delphi IDE菜单中插入项，必须用Insert方法，用Add无效

最近升级一数据字典工具向导PDMtoGUI，须向IDE中插入菜单项，调试好后，安装完向导运行，怎么样都无法向IDE中插入菜单项。将主要代码片段拷贝到一个普通Exe工程中测试能够插入菜单项。昨晚试了一二个小时，无果。

 

 

代码段如下

 

  FAddMenuItem := TMenuItem.Create(nil);
  FAddMenuItem.Name := 'miPDMtoGUIz';
  FAddMenuItem.Caption := '向导加载管理器';
  FAddMenuItem.OnClick := OnClick;
  miTools.add(FAddMenuItem);

 

之后查阅GExport的OTA FAQ中有关插入菜单项的步骤二，说是用Insert方法。试一下成了，特此记录

 

为弄清原因，查看联机帮助，找不到有用的，D的源码中Add方法也是调用Insert。想来想去，只有一个原因Delphi IDE编译时版本低，TMenuItem无Add方法。

 

下附向导的早前的演示版本，将Gif文件的扩展名去掉～是一个压缩包。数据库应用开发必备利器！正式版有相关的开发文档和扩展接口，有需要购买的（或Bug报告）请联系我！

 

下载： 

 http://download.csdn.net/source/1103728