如何用TOleContainer已只读方式打开word、Excel等文件?

zxtyhy 2007-01-31 11:12:21
OleContainer1.CreateObjectFromFile('c:\1.doc', False);
OleContainer1.DoVerb(ovPrimary);

用以上代码能够显示word文件,
但是希望能够将所有的Toolbar、Menu都不显示,同时将右键菜单也不能弹出。
不能复制打开的文件里的内容。

应该怎么办?
...全文
603 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
VBEND 2008-12-13
  • 打赏
  • 举报
回复
关注中,这好象是个难题了
trytobegood 2008-11-08
  • 打赏
  • 举报
回复
OleContainer1.OleObject.Application.ActiveDocument.ReadOnlyRecommended:=True;
这个方法对word 2003有效,但对word 2007无效。
haifeng123456789 2008-08-25
  • 打赏
  • 举报
回复
帮助文档中似乎已说明将OLE所在PANEL的locked属性设置为TRUE就行,可以一试。
GARNETT2183 2007-03-02
  • 打赏
  • 举报
回复
你看看VBA里面,或者WORD里面的帮助是否提供相关的API,如果有的话就可以了吧。。。
lastfqr 2007-03-02
  • 打赏
  • 举报
回复
地图鱼老师,您的word是怎么实现的,能否指教。学习
zxtyhy 2007-02-10
  • 打赏
  • 举报
回复
已经能够实现word文档的了,但是excel的无法实现,
请高手出招!
yi10000 2007-02-05
  • 打赏
  • 举报
回复
你也可以这样,在打开前设置文件只读,关闭在恢复.
仙侣步惊云 2007-02-05
  • 打赏
  • 举报
回复
OleContainer1.OleObject.Application.ActiveDocument.ReadOnlyRecommended:=True;
zxtyhy 2007-02-03
  • 打赏
  • 举报
回复
to: hongqi162(失踪的月亮)
这个方法不行啊!界面会不停地闪烁,能给段代码吗?
yi10000 2007-02-02
  • 打赏
  • 举报
回复
同意楼上的
hongqi162 2007-02-02
  • 打赏
  • 举报
回复
将OleContainer1.DoVerb(ovPrimary)放到Form的OnPaint事件里
zxtyhy 2007-02-02
  • 打赏
  • 举报
回复
各位大侠救命啊!

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧