引用单元:
Clipbrd
定义变量:
public
{ Public declarations }
NextClipHwnd:HWND; //观察链中下一个窗口句柄
procedure WMDrawClipBoard (var AMessage:TMessage); message WM_DRAWCLIPBOARD; //处理WM_DRAWCLIPBOARD消息过程
procedure TForm1.WMDrawClipBoard(var AMessage: TMessage);
begin
SendMessage(NextClipHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam); //将WM_DRAWCLIPBOARD , 消息传递到下一个观察链中的窗口
clipboard.Clear; //清空剪贴板中内容
end;
最后在窗口的FormCreate加入如下语句即可。
procedure TForm1.FormCreate(Sender: TObject);
begin
NextClipHwnd:=SetClipBoardViewer(Handle);
end;