Question

超级有质量的问题，自认为是Delphi高手的进。ActiveForm

遇到一个非常头疼的问题，就是我想使用OLE的方式来加载文件，在标准窗体中，OLE的菜单会很正常的与窗体菜单合并，我想，如果用ActiveForm把这个OLE封装进OCX中去，如果还能带菜单的话岂不是很爽，于是把WinForm中的内容移植到了ActiveForm中，但是ActiveForm是没有Menu属性的，也就是说我们的TMainMenu对象在ActiveForm中是显示不出来的，于是，我又想到一个办法，TToolBar有Menu属性，于是，我在ActiveForm上放了一个ToolBar，并把其Menu属性指向了那个万恶的MainMenu1，期待奇迹就此发生，编译成ocx后，很牛B的加载到了其他开发环境中，奇迹真的发生了，不过不是我想要的结果，我的OCX上有菜单，但仅限于我MainMenu中原有的菜单，而从OLE中合并出来的并未出现，经过一周左右的不断试验后，问题仍然没有解决，不过毛病却找到了，初步发现是在Menus.pas文件和Forms.pas文件中存在着一些问题，TMainMenu有个属性叫WindowHandle，指的是所属的窗体的Handle，对应的私有数据成员叫FWindowHandle，就是这个FWindowHandle，弄了我一星期都没有搞定，因为这个属性并不是在TMainMenu类中赋的值，而是在TCustomForm的SetMenu中赋的值，而这个SetMenu函数就是窗体类中Menu属性的那个输入函数，而在TMenu类以及其子类中有好多关于菜单合并的代码都对FWindowHandle值进行了判断，这就造成了没有指定Form的Menu属性时无法显示合并菜单的问题，ActiveForm中的问题也是如此，因为在ActiveForm中压根儿就没有Menu属性，哪来的FWindowHandle,这个值只能为0！我改了N天的代码，但是始终没能让OLE菜单中ToolBar中显示出来，不过又发现了另外一个情况，原来Ole合并的菜单使用API函数求菜单项的Count时是能求到的，但是在运行时求TMainMenu.items.Count时却是不包含OLE菜单的，这就不难解释为什么用ToolBar实现的菜单中不包含OLE合并上来的菜单了，因为ToolBar是在初始化或用代码指定其Menu属性时才与MainMenu同步菜单项，而OLE合并却是与运行时生成的菜单进行合并，所以ToolBar无论如何也感知不到OLE的菜单，到此，我暂时没有好的办法，我能想到的办法就是用API枚举出OLE菜单项来，用代码添加到TMainMenu中去，这样ToolBar就能感知到了，但是这几天想得头都要破了，实在是无力去实现，看看哪位达人能帮在下把这个问题解决掉，不胜感激，愿以人民币表示感谢。我的开发工具是Delphi7。

Answer 1

能简单点说不？
要不联系，进一步讨论。

或是加QQ群吧。一堆人呢。哈。47064293