OleContainer是DELPHI中提供的一个OLE包容器部件。使用它，可方便地把WORD、EXCEL等功能集成到自己的软件中来。相当于在自己的软件也可以使用WORD文字处理、EXCEL的表格功能了。

OleContainer控件的主要属性

OleContainer 控件的主要方法

OleContainer控件的主要属性

1) AllowInPlace property AllowInPlace:Boolean;

这个属性用于决定启动OLE对象服务程序的方式,如果为假,那么运行其间激活OLE对象时,打开整个OLE服务程序,即单独开一个窗口,而为真时, 则把服务的菜单合并到应用程序中.

2) AutoActive type TAutoActivate=(aaManual,aaGetFocus,aaDoubleClick);

property AutoActivate: TAutoActivate;

找开方式. 其中aaManual时,要激活OLE对象,必须在程序中调用方法DoVerb(OnShow)

3) CanPaste property CanPaste:Boolean;

只读属性,如果剪贴板中的内容适合粘贴到一个OLE对象,则为true, 否则为false

4) CopyOnsave property CopyOnsave:boolean;

为真则表示把OLE对象临时写到一个文件中,反之表示全部留在内在中.

5) Iconic property Iconic:Boolean;

是否以图标方式显示以节省屏幕上的空间

6) Linked property Linked:Boolean;

只读属性,返回真表示OLE对象是连接到文档中,返回假表示OLE对象是嵌入到文档中.

7) Modify property modified:Boolean;

当OLE对象发生了变化时(包括这个对象被删除或被其他OLE对象所替代),这个属性被设置为真

8) NewInserted property NewInserted:Boolean;

只读,如果刚刚调用的InsertObjectDialog函数插入了一个OLE对象,返回真.这时可调用Doverb(OvShow)激活这个OLE对象.

9) OleClassName property OleClassName:string;

只读. 返回OLE对象的类名, 当程序中有多个OLE对象时,可以用这个属性作为它们各自的标签.

10)OleObject property oleobject:Variant;

只读, 返回OLE容器中的OLE对象, 这个属性很重要,通过这个属性可以访问OLE服务程序.

11) OleObjectInterface property OleObjectInterface:IOleObject;

只读. 返回OLE对象的OleObject接口,在直接调用OLE的API需要用到这个接口.

12) OldStreamFormat property OldStreamFormat:Boolean;

如果为真, OLE对象就以OLE1的格式存储, 为假就以OLE2的格式存储.

13) PrimaryVerb property PrimaryVerb: integer;

只读. 返回OLE对象可进行的操作中主操作的索引号(序号)

14) SizeMode type TSizeMode = (smClip, smCenter, smScale, smStretch, smAutoSize);

property SizeMode:TSizeMode;

smClip, 超过容器的部分将被裁减.

smCenter, 中间.

smScale, 自动适应容器的大小

smStretch, 自动撑满

smAutoSize, 容器自动调整, 以适应OLE的大小.

15) State type TObjectState=(osEmpty,osLoaded,osRunning,osOpen,osInPlaceActive,osUIActive);

property State: TObjectState;

只读, 返回OLE对象的状态,可以是以下值.

osEmpty,容器中没有OLE对象.

osLoaded,容器中有OLE对象.但OLE服务程序没有运行.

osRunning,服务器正在运行.

osOpen,对象正在运行,OLE服务程序单独运行.

osInPlaceActive,对象正在运行,OLE服务程序菜单将要被合并到客户程序中运行.

osUIActive,对象正在运行,OLE服务程序菜单已经被合并到客户程序中运行.

OleContainer 控件的主要方法

1) ChangeIconDialog function ChangeIconDialog:Boolean;

调用这个函数将打开一个更改图标的对话框. 当OLE对象以图标显示时,就以用户选择的图标显示.

2) Close 过程 procedure Close;

关闭. 如果OLE对象已修改,调用Close将首先保存OLE对象.

3) Copy 过程 procedure copy;

把OLE对象复制到剪贴板中

4) CteateLinkToFile方法 procedure CreateLinkToFile(FileName:string; Iconic:Boolean);

创建一个OLE对象,其内容从指定的文件中读取,创建的OLE对象链接到OLE容器中. 如果OLE容器中已经有一个OLE对象, 这个已有的OLE对象将被删除,未保存的修改也被作废. Iconic参数设为True表示OLE对象以图标显示.

5) CreateObject 过程. procedure CreateObject(const OleClassName:string;Iconic:Boolean);

这个过程用于创建一个OLE对象,OleClassName参数指定对象的识别名,创建后的OLE对象嵌入到OLE容器中,如果OLE容器中已经有一个OLE对象, 这个已有的OLE对象将被删除,未保存的修改也被作废. Iconic参数设为True表示OLE对象以图标显示.

6) CreateObjectFromFile 过程 procedure CreateObjectFromFile(const FileName:string; Iconic:Boolean);

创建一个OLE对象,其内容从指定的文件中读取,创建的OLE对象嵌入到OLE容器中. 如果OLE容器中已经有一个OLE对象, 这个已有的OLE对象将被删除,未保存的修改也被作废. Iconic参数设为True表示OLE对象以图标显示.

7) CreateObjectFromInfo 方法, procedure CreateObjectFromInfo(const CreateInfo:TCreateInfo);

创建一个OLE对象,其内容从CreateInfo参数年指定的记录中读取(这个参数是个记录类型,包含了创建OLE对象所需要的信息)

8) DoVerb 方法. procedure DoVerb(Verb:Integer);

用于对OLE对象进行操作,verb参数指定操作类型.

9) ObjectPropertiesDialog函数 function objectPropertiesDialog:Boolean;

用来打开Windows OLE对象属性对话框,用于修改OLE对象的属性.

10) Run 方法.procedure Run;

用于运行OLE服务程序,但并不激活OLE对象本身,当服务程序处于运行状态后激活OLE对象将非常快.

11) PasteSpecialDialog方法 function PasteSpecialDialog:Boolean;

该方法打开Windows的选择性粘贴对话框.