用OleContainer打开word文档,却没有垂直滚动条

vwd 2003-08-23 09:27:37

怎样产生垂直滚动条

...全文

38 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

vwd 2003-08-24

打赏
举报

回复

up

zhoutian618 2003-08-23

打赏
举报

回复

把有OLE的窗口标题双击，再双出，就有了。
可能是OLE本身的问题吧。

zhoutian618 2003-08-23

打赏
举报

回复

把有OLE的窗口双击，再双出，就有了。
可能是OLE本身的问题吧。

Delphi中使用Olecontainer打开Word文档后，并实现打印功能

Delphi的Word处理，处理嵌入问题、Office2003版本使用Olecontainer出现不可编辑问题，用Setfocus方法就可以了。

工作要求，需要在程序中展示Excel文件的数据，但是不能显示出菜单栏、工具栏，只需要展示数据。看似简单的一个要求，却着实费了不少功夫，网上大多的资料都是office2003的版本适用，2007及以上的版本无法隐藏菜单栏和工具栏。经过笔者搜罗了多方资料，终于成功实现了功能，本着资源共享的精神，跟大家一起分享。 1.解决oleContainer，失去焦点后无法再编辑的问题 2.主要是解决office隐藏菜单栏和工具栏的问题，2003版本和2007及以上版本通用

unit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj, Buttons, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; OpenDialog1: TOpenDialog; OleContainer2: TOleContainer; DBEdit1: TDBEdit; DataSource1: TDataSource; BitBtn1: TBitBtn; Button1: TButton; Panel1: TPanel; ScrollBox1: TScrollBox; OleContainer1: TOleContainer; ScrollBox2: TScrollBox; Splitter1: TSplitter; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure DBEdit1Change(Sender: TObject); private procedure s_ole_clickck(Sender:TObject;Button:TMouseButton; Shift: TShiftState; X, Y: Integer); function create_S_Ole(nn:integer):ToleContainer; procedure delete_s_ole; { Private declarations } public { Public declarations } end; var Form1: TForm1;

OleContainer控件打开WORD文档，并转换成BMP图片保存

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章