有挑战性的问题，欢迎大家和我一起探讨一下。关于用OLE方式封装WPS时合并菜单的问题(ActiveForm,OCX)

[jialiu830205]

遇到一个非常头疼的问题，就是我想使用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。

[jialiu830205]

[Quote=引用 52 楼 tocoya 的回复:]
还是希望提问者能先把话说得清楚一点
[/Quote]
哪儿没说清楚？

[shiweiqiu]

看不懂

[afu666]

我也回一个~~

[upcbw]

确实不太懂啊~~

[gentleness8023]

很有挑战性啊！

[hoperun1234]

learning....

[xufei0801]

学习了。。。

[loveqingforever]

哥写的太先进了，怎么连段落都不分一下？继续 loading.......

[xuehuaicheng]

niu

[x444cn]

a a aa a a aaaaaaaaaaaaaaaaaaaa不是吧？

[x444cn]

维克积分所以不停方法题耄耋办法。

[sknice]

文字可读性太差了，最少要有几个换行

[luobenniubi]

哎，我不太懂啊

[yin_yjing]

学习中。。。

[wpwjl]

等高手

[me_soweak]

关注！！！

[bbnjack]

纠结。为什么我是个菜鸟不能参加讨论呢？
继续纠结。。。、

[jialiu830205]

段落确实没有分好。但是不影响阅读。

[DavisYu]

关注！！！

[jialiu830205]

不用回贴了，我不是来这里看你们顶来顶去的或是骂来骂去的。自己搞定了。

解决办法很简单，就是直接用API读取OLE菜单，然后把OLE菜单项一项一项增加到Menu中去，重新绑定一下ToolBar即可。