知识大全对象链接与嵌入（一）[5]

Posted 2022-07-21 知

篇首语：知识是头上的花环，而财产是颈上的枷锁。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全对象链接与嵌入（一）[5]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：对象链接与嵌入（一）[5] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　BOLEFormat类型定义在BOLEDefs单元中 BOLEMediumCalc函数定义在ToCtrl单元因此主窗中的interface部分应加入这两个单元

　　interface

　　use… BOLEDefs ToCtrl

　　在粘贴OLE对象前应用程序必须知道在剪贴板中是否有OLE对象

　　PasteSpecialEnabled函数可判断粘贴对话框是否有效如果剪贴板上有Fmts定义的任何一种格式 PasteSpecialEnable将返回真值粘贴对话框才能成功地调用反之调用粘贴对话框将不发生任何事件

　　以下代码实现编辑|粘贴菜单项的功能

　　procedure TOLEObjectForm PasteSpecial Click（Sender: TObject）

　　var

　　ClipFmt: Word;

　　DataHand: THandle;

　　Info: Pointer;

　　begin

　　if PasteSpecialEnabled（Self OLEFrameForm Fmts） then

　　if PasteSpecialDlg（Self OLEFrameForm Fmts

　　ClipFmt DataHand Info） then

　　InitializeOLEObject（Info）

　　end;

　　只有在粘贴对话框有效时编辑|粘贴菜单才有效以下代码实现此功能

　　procedure TOLEObjectForm Edit Click（Sender: TObject）

　　begin

　　PasteSpecial Enabled := PasteSpecialEnabled（Self OLEFrameForm Fmts）

　　end;

　　 释放OLE对象

　　从OLE服务器拖动OLE对象并将其放在OLE应用程序是一种方便的对象链接与嵌入的方法通过拖放操作用户不需要使用插入对话框或粘贴对话框来定义OLE对象而只需用鼠标键从OLE服务器中抓住OLE对象拖至OLE应用程序松开鼠标键从而实现OLE对象的插入

　　 注册OLE释放目标窗体

　　为了接收一个释放的OLE对象必须有一个窗体在Windows中注册成OLE释放目标用RegisterFormASOLEDropTarget函数可实现此功能

　　RegisterFormASOLEDropTarger（Form : TFrom;Const Fmts: array of BOlefrom）

　　其中Form是OLE对象的释放目标窗体在本章例程中将子窗体传递给Form参数

　　Fmts是对象格式的数组它是BOLEFormat 类型的数组所有要释放的数据必须用Fmts数组中相应BOLEFormat元素注册

　　在本章例程中注册的Fmts 数组与主窗体OnCreate事件声明的数组相同即联接对象格式和嵌入对象格式如果想接收更多类型的释放数据就必须在Fmts数组中加入其它元素例如应用程序要接收释放的文本 Fmts需加第三个元素其fmtId 域为CF_TEXT BOLEMedium域为BOLE_MED_HGLOBL

　　拖放过程中不需要用BOLEFormat的fmtName fmtResultName域如果程序只进行拖放操作而不进行对象粘贴可以不初始化两个域

　　在主窗体的OnCreate事件中可调用RegisterFormAsOLEDropTet

　　procedure TOLEFrameForm FormCreate（Sender : TObject）

　　begin…

　　end;

　　返回目录 DELPHI基础教程

编辑推荐

Java程序设计培训视频教程

J EE高级框架实战培训视频教程

　　Visual C++音频/视频技术开发与实战

　　Oracle索引技术

　　ORACLE G数据库开发优化指南

　　Java程序性能优化让你的Java程序更快更稳定

　　C嵌入式编程设计模式

　　Android游戏开发实践指南

cha138/Article/program/Delphi/201311/25223

知识大全 对象链接与嵌入（一）[5]

知识大全对象链接与嵌入（一）[5]