爱华网通常它应该至少能显示三种普通格式的内容：文字CF_TEXT、位图CF_BITMAP、元文件CF_MET
AFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口，它们都能够接受当前发送
到剪贴板的内容。我们大致按照以下步骤在窗口中处理有关剪贴板的内容。
首先，使用SetClipboar dViewer（HWND）函数向剪贴板观察链中加入一个观察窗口。当剪
贴板的内容发生变化时，该窗口会接收到一个WM_DRAWCLIPBOARD消息。该函数需要传递的参
数是观察窗口的句柄。返回值也是一个窗口句柄类型，标识了将要加入的下一个窗口。
然后，响应WM_DRAWCLIPBOARD消息处理剪贴板内容的变化。
最后，在程序退出或关闭时需要调用ChangeClipboardChain函数来将自己从观察链中删除
。然后调用SendMessage函数把这些消息传递到观察链中的下一个观察窗口。函数ChangeCli
pboardChain原型如下：
BOOLChangeClipboardChain(
HWNDhWndRemove,//将要删除的窗口的句柄
HWNDhWndNewNext//观察链中下一个窗口的句柄
);
Delphi的clipbrd.pas单元中定义了一个类TClipboard，它封装了Windows剪贴板，简化了
大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard，该函数用于返回TCl
ipboard对象实例，使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboar
d对象的几个常用的方法和属性的简单介绍。
方法：
Assign：将指定的对象放入剪贴板中。
Open：打开剪贴板，防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。
Close：关闭剪贴板。应该与打开剪贴板成对使用。
Clear：清空剪贴板。
GetAsHandle：返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。
GetComponent：返回剪贴板中的一个控件。Delphi自己使用得多。
HasFormat：查询剪贴板中是否有指定格式的内容。
属性：
AsText：用于读写剪贴板文字内容。
FormatCount：读剪贴板中数据格式的种数。
Formats：返回剪贴板中各种格式的列表。
此外，Delphi中的许多控件中也封装了有关剪贴板处理的操作。下面的一个处理剪贴板的
简单例子，只是将剪贴板的文字内容显示为窗口标题。
unitUnit1;
interface
usesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,C
lipbrd;//加入clipbrd单元
type
TForm1=class(TForm)
procedureFormCreate(Sender:TObject);
procedureFormClose(Sender:TObject;varAction:TCloseAction);
private
{Privatedeclarations}
public
NextClipHwnd:HWND;//观察链中下一个窗口句柄
procedureWMDrawClipBoard(varAMessage:TMessage);messageWM_DRAWCLIPBOARD;/
/处理WM_DRAWCLIPBOARD消息过程
end;
var
Form1:TForm1;
implementation
{$R*.DFM}
