DELPHI教程第七章

《DELPHI教程第七章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第七章　剪贴板和动态数据交换（一）应用程序间的数据交换是象Windows这样的多任务环境的重要特性。作为一种基于Windows的开发工具，Delphi支持如下四种数据交换方式：剪贴板、动态数据交换(DDE)、对象联接与嵌入(OLE)以及动态联接库(DLLs)。这中间前三种方式最为常用，OLE功能最为强大，DDE次之。而剪贴板使用最为方便。在本章，我们只讨论剪贴板和动态数据交换。利用OLE实现数据交换见下一章，利用动态联接库(DLLs)进行数据交换将在第十章中介绍。　　7.1剪贴板及其应用　本质上，剪贴板只是一个全局内存块。当

2、一个应用程序将数据传送给剪贴板后，通过修改内存块分配标志，把相关内存块的所有权从应用程序移交给Windows自身。其它应用程序可以通过一个句柄找到这个内存块，从而能够从内存块中读取数据。这样就实现了数据在不同应用程序间的传输。　　剪贴板虽然功能较为简单，且不能实现实时传输，但却是更为复杂的DDE和OLE的基础。对于一些只是偶尔需要使用其它应用程序数据的程序来说，使用剪贴板不失为一种方便、快捷的方式。Delphi把剪贴板的大部分功能封装到一个TClipboard类中，同时把使用频度最高的文本传输功能(包括DBImage的图像传

3、输功能)置入相应部件作为部件的方法，从而使用户可以十分方便地使用剪贴板进行编程。　7.1.1使用剪贴板传输文本　剪贴板传输文本主要是应用如下的三个方法:CopyToClipboard、CutToClipboard和PasteFromClipboard。包含这些方法的部件如下表所示。　　　表7.1包含剪贴板方法的部件━━━━━━━━━━━━━━━━━━━━━━━━━━━方法部件———————————————————————————TDBEdit　TDBMemoTDBImageCopyToClipboardTEditTMemoT

4、MaskEditTOLEContainerTDDEServerItem———————————————————————————TDBEditTDBMemoCutToClipboardTDBImageTEditTMemoTMaskEdit———————————————————————————TDBEditTDBMemoPasteFromClipboardTDBImageTEditTMemoTMaskEdit━━━━━━━━━━━━━━━━━━━━━━━━━━━　除TDBImage外，其余全是有关文本的控件。在把文本传输到剪贴板之

5、前，文本必须被选中。若选TMaskEdit的AutoSelect属性为True，则当MaskEdit获得输入焦点时文本自动被选中；若选TEdit、TMemo的HideSelection属性为True，则失去焦点时，文本选中状态自动隐藏，重新获得焦点时再显示。下面的语句把MaskEdit中选中的文本剪切到剪贴板：　MaskEdit.CutToClipboard;　下面的语句把剪贴板中的文本粘贴到Memo的当前光标处：　Memo.PasteFromClipboard；　利用剪贴板类也可以实现文本的传输，见(7.1.2)中的介绍。

6、　7.1.2剪贴板类　为方便剪贴板的操作，Delphi在Clipbrd库单元中定义了一个TClipboard类，并且预定义了一个变量Clipboard作为类TClipboard的实例，从而使用户在绝大多数场合不必自己去定义一个TClipboard的实例。利用剪贴板类可以进行文本、图像和部件的传输，剪贴板类为实现这些方法提供了相应的属性和方法。表7.2、表7.3列出了TClipboard属性和方法的意义。　　表7.2TClipboard的属性━━━━━━━━━━━━━━━━━━━━━━━━━━━属性意义────────────

7、───────────────AsText保存剪贴板的文本，只有运行时才可设置FormatCount可用剪贴板格式的数目Formats可用剪贴板格式链━━━━━━━━━━━━━━━━━━━━━━━━━━━　　　表7.3TClipboard的方法━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━方法参数意义─────────────────────────────────────Clear无清除剪贴板的内容AssignSource:TPersistent把Source参数指定的对象拷贝到剪贴板，常用于图

8、形、图像对象Open无打开剪贴板，阻止其它应用程序改变它的内容Close无关闭打开的剪贴板SetComponentSource:TPersistent把部件拷贝到剪贴板GetComponentOwner从剪贴板取回一个部件并放置Parent:TPersistentSetAsHandleFo