第七章-剪贴板和动态数据交换（一）（3）

第七章-剪贴板和动态数据交换（一）（3）2007-05-077.1.3.3 粘贴

从剪贴板上粘贴图像，首先检测剪贴板上的数据格式。如果格式为CF_BITMAP，则调用目标位图的Assign 方法粘贴图像。

程序清单如下。

procedure TForm1.PasteButtonClick（Sender: TObject）;

var

Bitmap: TBitmap;

begin

if Clipboard.HasFormat（CF_BITMAP） then

begin

Bitmap := TBitmap.Create;

try

Bitmap.Assign（Clipboard）;

Image.Canvas.Draw（0, 0, Bitmap）;

finally

Bitmap.Free;

end;

try...finally为资源保护块，参第十二章。

7.1.4 建立自己的剪贴板观察程序

在这一节中我们要建立一个自己的剪贴板观察程序，用来保存截获到剪贴板中的位图。

Windows允许用户建立自己的剪贴板观察程序，并把该程序添加到一个剪贴板观察器链中。在链中，位置靠前的程序有义务把有关剪贴板的消息传递到紧随其后的观察程序。而处于链首的程序由Windows的消息循环机制直接把剪贴板消息发送过来。

建立一个剪贴板观察程序，首先该程序必须能响应相应的Windows消息。对于那些熟悉Microsoft公司Visual Basic的读者来说，这是令他们头疼而束手无策的地方。但Delphi在这方面却有良好的表现：利用关键字message，用户可以将一个过程定义为响应特定的Windows消息。如：

procedure WMDrawClipboard（var Msg:TWMDrawClipboard）;

message WM_DRAWCLIPBOARD;

可以响应WM_DRAWCLIPBOARD消息。类TWMDrawClipboard是消息类Message 的子类。Delphi把所有的消息都重新进行了定义，使用户在使用时可以直接引用其便于记忆的数据成员，而不必再自己动手去分解消息。虽然这并不能算作是一个重大的改进，但却体现了Delphi处处为用户方便着想的特点。

我们将要建立的程序目的是把截获到剪贴板上的位图保存下来。在本书的写作过程中，这一工作是大量存在的。虽然利用Windows工具PaintBrush（画笔），通过粘贴、保存等操作可以实现这一功能，但却存在以下一些问题：

1.程序频繁切换影响效率，当有大量位图存在时更是如此；

2.画笔有一个很讨厌的缺陷：当剪贴板上的位图比画笔界面的客户区大时，客户区外的位图被截断。因而往往需要根据所截获位图的大小来调整画笔客户区的大小，并重新进行粘贴。而如果开始就把画笔客户区调整到足够大，又会覆盖掉屏幕上一些有用的信息。