现在位置: > > IT/计算机 > 计算机软件及应用

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

DELPHI数据库不得不学教程

-->DELPHI基础教程-->第八章 对象链接与嵌入(二)后一页
前一页
回目录
回首页
第八章 对象链接与嵌入(二)



8.3.5.2 在应用程序中释放OLE对象 
  当一个对象释放到一个窗体,该窗体发生OnDragDrop
事件。该对象定义为TDragDropEvent方法中的Source参数,而TDragDropEvent 方法是用来处理OnD


ragDrop事件”。
如果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 打开对话框的属性及取值

相关文档
--DELPHI基础教程--第八章 对象链接与嵌入(二)
--DELPHI基础教程--第八章 对象链接与嵌入(二)_工学_高等教育_教育专区。delphi基础教程-->DELPHI基础教程-->第八章 对象链接与嵌入(二)后一页 前一页 回目...
--DELPHI基础教程--第八章 对象链接与嵌入(一)
--DELPHI基础教程--第十... 8页 1财富值 《Delphi程序设计基础教程... 24页 免费 第八章 对象链接与嵌入(一... 9页 免费喜欢...
delphi基础教程(二)
delphi基础教程(二)_计算机软件及应用_IT/计算机_专业资料。后一页前一页回目录...后一页前一页回目录回首页 第八章 对象链接与嵌入(一)对象链接和嵌入(Object...
第二章 Delphi面向对象的编程方法
第八章 对象链接与嵌入 第九章 Delphi拖放编程1/2 相关文档推荐 ...如果您完全不熟 悉 Pascal 编程,请参阅一些基础的 Pascal 教程。如果您具有...
第二章 Delphi面向对象的编程方法(二)
第八章 对象链接与嵌入(一... 第九章 Delphi拖放编程1/2 相关文档推荐 ...《Delphi程序设计基础教程... 40页 免费喜欢此文档的还喜欢 第二Delphi面向...
第二章 Delphi面向对象的编程方法(一)
第八章 对象链接与嵌入(一... 第九章 Delphi拖放编程1/2 相关文档推荐 ...《Delphi程序设计基础教程... 40页 免费喜欢此文档的还喜欢 第二Delphi面向...
第二章 Delphi面向对象的编程方法(三)
第八章 对象链接与嵌入(一... 第九章 Delphi拖放编程1/2 相关文档推荐 ...《Delphi程序设计基础教程... 40页 免费喜欢此文档的还喜欢 第二Delphi面向...
第二章 Delphi面向对象的编程方法(四)
第八章 对象链接与嵌入(一... 第九章 Delphi拖放编程1/2 相关文档推荐 ...《Delphi程序设计基础教程... 40页 免费喜欢此文档的还喜欢 第二Delphi面向...
DELPHI教程第八章
DELPHI教程第八章_计算机软件及应用_IT/计算机_专业资料。第八章 对象链接与嵌入...Register FormASOleDropTarget(Self,Fmts) end; 第八章 对象链接与嵌入(二) ...
第八章 对象链接与嵌入
--DELPHI基础教程--第八章... 10页 2财富值 第14章 对象的链接与嵌入 15...Register FormASOleDropTarget(Self,Fmts) end; 第八章 对象链接与嵌入(二) ...
--DELPHI基础教程--第二十章 开发Delphi对象式数据管理...
-->DELPHI基础教程-->第二十章 开发Delphi对象式数据...如果是动态链接库(DLL),则HGlobal 代表动态链接库的...嵌入播放器: 普通尺寸(450*500pix) 较大尺寸(630...
相关主题
返回顶部
热门文档