有人知道如何监视剪贴版吗？？？

在Delphi中侦测剪贴板的变化许多提供剪切、复制和粘贴功能的应用程序都有一个共同特点，那就是：工具栏上表示这三个功能的按钮会随着剪贴板的变化而变化，具体来说，粘贴按钮只有在剪贴板上有内容时才处于使能状态，而当剪贴板空时则变灰，也就是不能使用；相似地，剪切、复制按钮也只有在当前有文本或位图被选择时才有效。那么，这是怎么实现的呢？笔者曾经想在Delphi4.0中放置一个Timer控件，在其OnTimer事件中加入侦测剪贴板变化的代码，但最后放弃了，原因是Timer控件比较消耗系统资源，得不偿失，而且笔者也相信，那些应用程序的源代码也不是这么做的。其实，这个问题的关键在于怎么样响应Windows消息，这里就是响应剪贴板消息。Delphi体贴地将所有的Windows消息都重新定义，令我们可以方便地通过message关键字访问这些消息而不用理会恼人的API。下面，就用一个实例说明Delphi是怎么做的。
　　程序需要一个ToolBar控件，在其上建立三个按钮；一个ImageList控件，为其加入三个小位图，分别表示剪切、复制和粘贴，将ImageList 赋予ToolBar的images属性；一个Memo控件，将其Lines属性置空。以下是程序清单：
　　unit Unit1;
　　interface
　　uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　StdCtrls,ClipBrd, ComCtrls, ImgList, ToolWin;
　　type
　　 TForm1 = class(Tform)
　　 ToolBar1: TToolBar;
　　 ImageList1: TImageList;
　　 ToolButton1: TToolButton;
　　 ToolButton2: TToolButton;
　　 ToolButton3: TToolButton;
　　 Memo1: Tmemo;
　　 procedure FormCreate(Sender: Tobject);
　　 procedure FormDestroy(Sender: Tobject);
　　 procedure Memo1MouseUp(Sender: Tobject; Button: TMouseButton;
　　 Shift: TShiftState; X, Y: Integer);
　　 procedure ToolButton1Click(Sender: Tobject);
　　 procedure ToolButton2Click(Sender: Tobject);
　　 procedure ToolButton3Click(Sender: Tobject);
　　 private
　　 { Private declarations }
　　 viewhandle:HWND;
　　 procedure Change(var msg:TWMdrawclipboard);
　　 message wm_drawclipboard;
　　 public
　　 { Public declarations }
　　 end;
　　var
　　 Form1: TForm1;
　　implementation
　　{＄R ＊.DFM}
　　procedure TForm1.FormCreate(Sender: Tobject);
　　begin
　　Memo1.Align:=alClient;
　　ToolBar1.Flat:=True;
　　viewhandle:=SetClipboardviewer(Handle);
　　ToolButton1.Enabled:=False;
　　ToolButton2.Enabled:=False;
　　end;
　　procedure TForm1.FormDestroy(Sender: Tobject);
　　begin
　　ChangeClipboardChain(Handle,viewhandle);
　　end;
　　procedure TForm1.Memo1MouseUp(Sender: Tobject; Button: TMouseButton;
　　 Shift: TShiftState; X, Y: Integer);
　　begin
　　if Memo1.SelText<>`` then
　　 begin
　　 ToolButton1.Enabled:=True;
　　 ToolButton2.Enabled:=True;
　　 end
　　else
　　 begin
　　 ToolButton1.Enabled:=False;
　　 ToolButton2.Enabled:=False;
　　 end
　　end;
　　procedure TForm1.ToolButton1Click(Sender: Tobject);
　　begin
　　 Memo1.CutToClipboard;
　　end;
　　procedure TForm1.ToolButton2Click(Sender: Tobject);
　　begin
　　 Memo1.CopyToClipboard;
　　end;
　　procedure TForm1.ToolButton3Click(Sender: Tobject);
　　begin
　　 Memo1.PasteFromClipboard;
　　end;
　　procedure TForm1.Change(var msg:TWMdrawclipboard);
　　begin
　　ToolButton3.Enabled:=Clipboard.Hasformat(cf_text)
　　end;
　　end.
　　注意程序中的关键字：message，它使Change过程可以响应剪贴板消息，
即剪贴板中有文本内容时粘贴按钮有效，反之无效；而剪切、复制按钮的状
态在Memo1的MouseUp事件中响应。程序中的SetClipboardviewer函数用来登
陆剪贴板，ChangeClipboardChain函数用来退出剪贴板。另外还有一点要说
明的是：由于代码中有剪贴板类的操作，因此Uses子句中要加上ClipBrd。
监视剪贴板内容
  Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。通常它应该至少能显示三种普通格式的内容：文字CF_TEXT、位图CF_BITMAP、元文件CF_METAFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口，它们都能够接受当前发送到剪贴板的内容。我们大致按照以下步骤在窗口中处理有关剪贴板的内容。
首先，使用SetClipboardViewer（HWND）函数向剪贴板观察链中加入一个观察窗口。当剪贴板的内容发生变化时，该窗口会接收到一个WM_DRAWCLIPBOARD消息。该函数需要传递的参数是观察窗口的句柄。返回值也是一个窗口句柄类型，标识了将要加入的下一个窗口。然后，响应WM_DRAWCLIPBOARD消息处理剪贴板内容的变化。最后，在程序退出或关闭时需要调用ChangeClipboardChain函数来将自己从观察链中删除。然后调用SendMessage函数把这些消息传递到观察链中的下一个观察窗口。函数ChangeClipboardChain原型如下：BOOL ChangeClipboardChain(HWND hWndRemove, //将要删除的窗口的句柄HWND hWndNewNext //观察链中下一个窗口的句柄);Delphi的clipbrd.pas单元中定义了一个类TClipboard，它封装了Windows剪贴板，简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard，该函数用于返回TClipboard对象实例，使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍。方法：Assign：将指定的对象放入剪贴板中。Open：打开剪贴板，防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。Close：关闭剪贴板。应该与打开剪贴板成对使用。Clear：清空剪贴板。GetAsHandle：返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。GetComponent：返回剪贴板中的一个控件。Delphi自己使用得多。HasFormat：查询剪贴板中是否有指定格式的内容。属性：AsText：用于读写剪贴板文字内容。FormatCount：读剪贴板中数据格式的种数。Formats：返回剪贴板中各种格式的列表。此外，Delphi中的许多控件中也封装了有关剪贴板处理的操作。下面的一个处理剪贴板的简单例子，只是将剪贴板的文字内容显示为窗口标题。unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs,Clipbrd;//加入clipbrd单元typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject;var Action: TCloseAction);private{ Private declarations }publicNextClipHwnd:HWND;//观察链中下一个窗口句柄procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD;//处理WM_DRAWCLIPBOARD消息过程end;varForm1: 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) orClipboard.HasFormat(CF_OEMTEXT)) thenbegin//处理剪贴板中内容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消息传递到观察链中的下一个窗口是必要的，否则有可能其他窗口不能获得类似消息。另外，在使用网络蚂蚁时笔者曾经碰到不能设置剪贴板格式的情况，在此提醒读者注意检查RegisterClipboardFormat等函数的返回值。

调试易

有人知道如何监视剪贴版吗？？？

解决方案 »