Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。
通常它应该至少能显示三种普通格式的内容：文字CF_TEXT、位图CF_BITMAP、元文件CF_MET
AFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口，它们都能够接受当前发送
到剪贴板的内容。我们大致按照以下步骤在窗口中处理有关剪贴板的内容。
首先，使用SetClipboardViewer（HWND）函数向剪贴板观察链中加入一个观察窗口。当剪
贴板的内容发生变化时，该窗口会接收到一个WM_DRAWCLIPBOARD消息。该函数需要传递的参
数是观察窗口的句柄。返回值也是一个窗口句柄类型，标识了将要加入的下一个窗口。
然后，响应WM_DRAWCLIPBOARD消息处理剪贴板内容的变化。
最后，在程序退出或关闭时需要调用ChangeClipboardChain函数来将自己从观察链中删除
。然后调用SendMessage函数把这些消息传递到观察链中的下一个观察窗口。函数ChangeCli
pboardChain原型如下：
BOOL ChangeClipboardChain(
HWND hWndRemove, //将要删除的窗口的句柄
HWND hWndNewNext //观察链中下一个窗口的句柄
);
Delphi的clipbrd.pas单元中定义了一个类TClipboard，它封装了Windows剪贴板，简化了
大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard，该函数用于返回TCl
ipboard对象实例，使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboar
d对象的几个常用的方法和属性的简单介绍。
方法：
Assign：将指定的对象放入剪贴板中。
Open：打开剪贴板，防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。
Close：关闭剪贴板。应该与打开剪贴板成对使用。
Clear：清空剪贴板。
GetAsHandle：返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。
GetComponent：返回剪贴板中的一个控件。Delphi自己使用得多。
HasFormat：查询剪贴板中是否有指定格式的内容。
属性：
AsText：用于读写剪贴板文字内容。
FormatCount：读剪贴板中数据格式的种数。
Formats：返回剪贴板中各种格式的列表。
此外，Delphi中的许多控件中也封装了有关剪贴板处理的操作。下面的一个处理剪贴板的
简单例子，只是将剪贴板的文字内容显示为窗口标题。
unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs,C
lipbrd;//加入clipbrd单元
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
NextClipHwnd:HWND;//观察链中下一个窗口句柄
procedure WMDrawClipBoard(var AMessage:TMessage); message WM_DRAWCLIPBOARD;/
/处理WM_DRAWCLIPBOARD消息过程
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.WMDrawClipBoard(var AMessage: TMessage);
begin
//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口
SendMessage(NextClipHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);
//查询剪贴板中特定格式的数据内容
if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then
begin
//处理剪贴板中内容
Caption:=Clipboard.asText;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//获得观察链中下一个窗口句柄
NextClipHwnd:=SetClipBoardViewer(Handle);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//从观察链中删除本观察窗口
ChangeClipboardChain(Handle,NextClipHwnd);
//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口
SendMessage(NextClipHwnd,WM_CHANGECBCHAIN,Handle,NextClipHwnd);
end;
end.
需要注意的是，在处理剪贴板内容变化的消息WM_DRAWCLIPBOARD的过程和关闭窗口事件中
使用函数sendmessage把WM_DRAWCLIPBOARD或WM_CHANGECBCHAIN消息传递到观察链中的下一
个窗口是必要的，否则有可能其他窗口不能获得类似消息。
unit clipbrdform;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,clipbrd, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
clipBoard:Tclipboard;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(edit1.Text);
clipboard:=Tclipboard.create;
clipboard.SetTextBuf(pchar(copy(edit1.Text,1,255)));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.Text:=clipboard.AsText;
end;
end.
呵呵，好久没写点关于Delphi的东西了。
今天上班的时候，同事问我怎么把Memo里面的东西复制到剪贴板里，
过程很简单，Memo.SelectAll，然后Memo.CopyToClipboard就可以了。
不过接着同事又问了我一个问题，为什么Memo.SelectAll后，Memo没有任何显示呢？文字没有被选中的效果？
我跑去看了一眼，原来他把以上方法写在了一个Button.OnClick里面，我让他再加上一行Memo.SetFoucs，效果就出来了。呵呵，主要原因是在点击按钮时，Memo失去了焦点，于是在SelectAll以后，界面也没有即时刷新。
后来他又问了我一个问题，怎么可以直接得到操作剪贴板里的文本呢？
这就是用到Delphi的Clipboard函数了。
Clipboard.AsText就能得到剪贴板里的文本。
此时初学者肯定会奇怪，Clipboard不是一个函数么，怎么这种用法跟一个对象一样呢。
跟一下Clipboard的VCL源码（按住Ctrl键的同时，在Clipboard上面点击鼠标，注意，要正常使用Clipboard需要uses Clipbrd单元）
function Clipboard: TClipboard;
begin
if FClipboard = nil then
FClipboard := TClipboard.Create;
Result := FClipboard;
end;
看到了吧，这个函数返回了一个TClipboard类型的对象，在函数内部建立了这个对象。
这下就又从VCL代码里学会一招了。当然，有了创建，应该还有销毁，才是健康的代码，
destructor TClipboard.Destroy;
begin
if (FClipboard = Self) then
FClipboard := nil;
inherited Destroy;
end;
initialization
{ The following strings should not be localized }
CF_PICTURE := RegisterClipboardFormat('Delphi Picture');
CF_COMPONENT := RegisterClipboardFormat('Delphi Component');
FClipboard := nil;
finalization
FClipboard.Free;
end.
其中的FClipboard是Clipbrd单元内的一个全局变量。所以使用initialization和finalization来初始化和销毁该对象。
