社区
Delphi
帖子详情
如何用TOleContainer已只读方式打开word、Excel等文件?
zxtyhy
2007-01-31 11:12:21
OleContainer1.CreateObjectFromFile('c:\1.doc', False);
OleContainer1.DoVerb(ovPrimary);
用以上代码能够显示word文件,
但是希望能够将所有的Toolbar、Menu都不显示,同时将右键菜单也不能弹出。
不能复制打开的文件里的内容。
应该怎么办?
...全文
603
12
打赏
收藏
如何用TOleContainer已只读方式打开word、Excel等文件?
OleContainer1.CreateObjectFromFile('c:\1.doc', False); OleContainer1.DoVerb(ovPrimary); 用以上代码能够显示word文件, 但是希望能够将所有的Toolbar、Menu都不显示,同时将右键菜单也不能弹出。 不能复制打开的文件里的内容。 应该怎么办?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
打赏
举报
回复
各位大侠救命啊!
DELPHI中
EXCEL
组件的使用方法
DELPHI中
EXCEL
组件的使用方法: 一) 使用动态创建的方法 首先创建
Excel
对象,使用ComObj: var
Excel
App: Variant;
Excel
App := Create
Ole
Object( '
Excel
.Application' ); 1) 显示当前窗口:
Excel
App.Visible...
用DELPHI操作
EXCEL
在DELPHI中显示
EXCEL
文件
,可用以下简单代码做到。但要实用,则需进一步完善。 var Form1: TForm1; EApp:variant;implementationuses ComObj,
Ole
Server,
Excel
2000;{$R *.dfm}procedure TForm1.Button1Click...
delphi 操作
excel
文章转载
EXCEL
2007年07月03日 星期二 11:45DELPHI中
EXCEL
组件的使用方法:一) 使用动态创建的方法首先创建
Excel
对象,使用ComObj:var
Excel
App: Variant;
Excel
App := Create
Ole
Object(
Excel
.Application );1) 显示当前窗口...
用DELPHI操作
EXCEL
====转帖收藏
DELPHI中
EXCEL
组件的使用方法:一) 使用动态创建的方法首先创建
Excel
对象,使用ComObj:var
Excel
App: Variant;
Excel
App := Create
Ole
Object(
Excel
.Application );1) 显示当前窗口:
Excel
App.Visible := True;2) ...
delphi 操作
excel
(全)
DELPHI中
EXCEL
组件的使用方法: (一) 使用动态创建的方法 首先创建
Excel
对象,使用ComObj: var
Excel
App: Variant;
Excel
App := Create
Ole
Object( '
Excel
.Application' ); 1) 显示当前窗口: ...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章