- 1、本文档共14页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
--DELPHI基础教程--第八章 对象链接与嵌入(二)
--DELPHI基础教程--第八章 对象链接与嵌入 二
-- DELPHI基础教程-- 第八章 对象链接与嵌入(二)后一页 前一页 回目录 回首页 第八章 对象链接与嵌入(二) 8.3.5.2 在应用程序中释放OLE对象 当一个对象释放到一个窗体,该窗体发生OnDragDrop 事件。该对象定义为TDragDropEvent方法中的Source参数,而TDragDropEvent 方法是用来处理OnDragDrop事件”。 如果Source 是一个OLE 对象, 那么它是TOLEDropNotify 对象的派生类型。 TOLEDropNotify对象有一个与OLE包容器部件PInitInfo属性相对应的PIniInfo属性。 如果一个OLE对象被释放。PInitInfo指向OLE对象的初始化信息结构。要实现释放功能。只需将TOLEDropNotify的PInitInfo属性赋给OLE包容器部件的PInitInfo属性。 以下为处理OnDragDrop事件的代码: procedure TOLEFrameForm.FormDragDrop Sender, Source: TObject; X, Y: Integer ; var NewChild: TOLEObjectForm; begin if Source is TOLEDropNotify then begin NewChild : CreateChild; with Source as TOLEDropNotify do NewChild.OLEContainer.PInitInfo : PInitInfo end end; 注意不要用ReleaseOLEInitInfo释放分配给PInitInfo属性的内存。Delphi自动释放这块内存。 8.3.6 文件中的OLE对象 在OLE应用程序中,要保存对OLE对象的修改,需将对象数据保存在文件中。 如果对象是链接的数据,Delphi将自动的保存在源文件中。当对象被修改时,文件中的数据自动修改。 如果对象是嵌入的,数据贮存在应用程序程序的窗体。要保存对嵌入对象的修改, 应用程序应把数据保存在特殊的OLE文件中。如果要对已存文件的对象进行编辑,应用程序必须从文件中装入OLE对象。 OLE包容器部件的SaveToFile方法可保存对象: OleCntainer1.SaveToFile C: \SALEs.OLE ; OLE包容器部件的loadFromFile方法可把文件中的对象装入OLE包容器部件。 OleContainer1.loadFromFile C:\SALEs.OLE 本章例程使用了保存对话框和打开对话框来实现运行状态的对象保存和对象装入。 在OLEObjectForm窗体加入保存对话框部件和打开对话框部件。其主要属性如表8.4: 表8.4 保存对话框的属性及取值: ━━━━━━━━━━━━━━━━━━━━━━━━ 属性 值 ──────────────────────── Name SaveAsDialog DefaultExit ole FileName .OLE Filter OLE files *.OLE |*.OLE ━━━━━━━━━━━━━━━━━━━━━━━━ 表8.5 打开对话框的属性及取值 ━━━━━━━━━━━━━━━━━━━━━━━━━ 属性 取值 ──────────────────────── Name OpenDialog DefaultExit ole FileName .OLE Filter OLE files *.OLE |*.OLE ━━━━━━━━━━━━━━━━━━━━━━━━━ 用户单击“文件|保存”菜单项实现OLE对象的保存。代码如下: procedure TOLEObjectForm.SaveAs1Click Sender: TObject ; begin if SaveAsDialog.Execute then OLEContainer.SaveToFile SaveAsDialog.Filename end; 用户单击“文件|打开”菜单项实现对象文件装入: procedure TOLEFrameForm.Open1Click Sender: TObject ; var NewChild: TOLEObjectForm; begin f OpenDialog.Execute then begin NewChild : CreateChild; NewChild.OLEContainer.LoadFromFile OpenDialog.FileName end end; 8.4 OLE自动化 OLE自动化是Windows应用程序操纵另一个程序的一种机制。OLE 2
您可能关注的文档
最近下载
- 儿科血小板减少护理查房.pptx
- 房地产组织架构图.docx
- 三到六年级的英语单词汇总.docx
- 2023年11月四川省德昌生态环境监测站招考4名就业见习人员笔试历年高频考题(难、易错点荟萃)答案带详解附后.docx
- C103116【基础】2025年东北师范大学045101教育管理《841学校组织与管理之教育管理学》.pdf VIP
- ABB 传动变频器 ACS880-04(200-600 kW)传动模块硬件手册 安装及使用手册.pdf
- (入党积极分子)思想汇报.doc VIP
- 入党积极分子(发展对象)培训班学习心得体会.docx VIP
- 物业二次装修管理培训课件.pptx
- 祭母舅的祭文.docx
文档评论(0)