--delphi基础教程--第八章 对象链接与嵌入(二)

--delphi基础教程--第八章 对象链接与嵌入(二)

ID:8143118

大小:27.53 KB

页数:14页

时间:2018-03-07

--delphi基础教程--第八章 对象链接与嵌入(二)_第1页
--delphi基础教程--第八章 对象链接与嵌入(二)_第2页
--delphi基础教程--第八章 对象链接与嵌入(二)_第3页
--delphi基础教程--第八章 对象链接与嵌入(二)_第4页
--delphi基础教程--第八章 对象链接与嵌入(二)_第5页
资源描述:

《--delphi基础教程--第八章 对象链接与嵌入(二)》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、--DELPHI基础教程--第八章对象链接与嵌入(二)-->DELPHI基础教程-->第八章 对象链接与嵌入(二)后一页前一页回目录回首页第八章 对象链接与嵌入(二)8.3.5.2在应用程序中释放OLE对象   当一个对象释放到一个窗体,该窗体发生OnDragDrop事件。该对象定义为TDragDropEvent方法中的Source参数,而TDragDropEvent方法是用来处理OnDragDrop事件”。如果Source是一个OLE对象,那么它是TOLEDropNotify对象的派生类型。TOLEDropNotify对象有一个与OLE包容器部件PInitInfo属性相对应的PI

2、niInfo属性。如果一个OLE对象被释放。PInitInfo指向OLE对象的初始化信息结构。要实现释放功能。只需将TOLEDropNotify的PInitInfo属性赋给OLE包容器部件的PInitInfo属性。  以下为处理OnDragDrop事件的代码: procedureTOLEFrameForm.FormDragDrop(Sender,Source:TObject;X,Y:Integer);varNewChild:TOLEObjectForm;beginifSourceisTOLEDropNotifythenbeginNewChild:=CreateChild;withS

3、ourceasTOLEDropNotifydoNewChild.OLEContainer.PInitInfo:=PInitInfoendend; 注意不要用ReleaseOLEInitInfo释放分配给PInitInfo属性的内存。Delphi自动释放这块内存。 8.3.6文件中的OLE对象   在OLE应用程序中,要保存对OLE对象的修改,需将对象数据保存在文件中。如果对象是链接的数据,Delphi将自动的保存在源文件中。当对象被修改时,文件中的数据自动修改。如果对象是嵌入的,数据贮存在应用程序程序的窗体。要保存对嵌入对象的修改,应用程序应把数据保存在特殊的OLE文件中。如果要对

4、已存文件的对象进行编辑,应用程序必须从文件中装入OLE对象。  OLE包容器部件的SaveToFile方法可保存对象:   OleCntainer1.SaveToFile('C:SALEs.OLE');   OLE包容器部件的loadFromFile方法可把文件中的对象装入OLE包容器部件。   OleContainer1.loadFromFile('C:SALEs.OLE')  本章例程使用了保存对话框和打开对话框来实现运行状态的对象保存和对象装入。  在OLEObjectForm窗体加入保存对话框部件和打开对话框部件。其主要属性如表8.4:   表8.4保存对话框的属性及取

5、值:━━━━━━━━━━━━━━━━━━━━━━━━ 属性        值────────────────────────  NameSaveAsDialogDefaultExitoleFileName.OLEFilterOLEfiles(*.OLE)

6、*.OLE━━━━━━━━━━━━━━━━━━━━━━━━ 表8.5打开对话框的属性及取值━━━━━━━━━━━━━━━━━━━━━━━━━  属性        取值────────────────────────  NameOpenDialogDefaultExitoleFileName.OLEFilterOLEfiles(*

7、.OLE)

8、*.OLE━━━━━━━━━━━━━━━━━━━━━━━━━   用户单击“文件

9、保存”菜单项实现OLE对象的保存。代码如下: procedureTOLEObjectForm.SaveAs1Click(Sender:TObject);beginifSaveAsDialog.ExecutethenOLEContainer.SaveToFile(SaveAsDialog.Filename)end; 用户单击“文件

10、打开”菜单项实现对象文件装入: procedureTOLEFrameForm.Open1Click(Sender:TObject);varNewChild:TOL

11、EObjectForm;beginfOpenDialog.ExecutethenbeginNewChild:=CreateChild;NewChild.OLEContainer.LoadFromFile(OpenDialog.FileName)endend;  8.4OLE自动化   OLE自动化是Windows应用程序操纵另一个程序的一种机制。OLE2.0提供了一种方法来集成应用程序,这就是应用程序之间的命令操作。  利用OLE2.0,程序员可以定义一组命令,使它们

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。