帮帮我，各位大侠。（关于OLE）

[sadpacific]

大家注意到没有，用IE打开Word或Excel文档时，IE的菜单栏没有变化，通过将Word或Excel嵌入到IE中的方式，打开了相应的文档。
如何在我自己的程序中实现这种功能呢？
恳请高手指点。

[Lin]

Sadpacific:
1、在Form上放一个WebBrowser控件(D5有，没有的话，安装ActiveX之WebBrowser)；
2、在事件响应中插入代码
WebBrowser1.Navigate(你的Word或Excel文档);
3、It's Ok.

[huiwsey]

To lin
我想sadpacific的意思是在自己做的菜单中怎样实现吧。

[Lin]

To huiwsey: It's so easy:
1、Place A TOleContainer control to your form;
2、Set the AllowInPlace property to False;
3、Load Ole Object from TOleContainer control;
4、The menu has no change.

[sadpacific]

To Lin:
你的答案正是我需要的，可是我还有点不明白，如何Load Ole Object from TOleContainer control？

[Lin]

To SadPacific
1、OleContainer1.InsertObjectDialog可以打开一插入对话框，可以插入OLE文档；返回True时表示插入成功；
2、OleContainer1.LoadFromFile可以直接载入磁盘文件。
3、如果想合并菜单的话，Set the AllowInPlace property to True;然后正确设置主菜单的GroupIndex属性(一般来说,File菜单为1，Edit菜单为2)。否则Set to False；

另外：你很喜欢 the song 'Sad Pacific' ?

[sadpacific]

To Lin:
谢谢你的答复。
我的确非常喜欢任贤齐的那首歌。