将WM_DRAWCLIPBOARD 消息传递到下一个观察链中的窗口

将WM_DRAWCLIPBOARD 消息传递到下一个观察链中的窗口
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//从观察链中删除本观察窗口

ChangeClipboardChain(Handle,NextClipHwnd);

//将WM_DRAWCLIPBOARD 消息传递到下一个观察链中的窗口

SendMessage(NextClipHwnd,WM_CHANGECBCHAIN,Handle,NextClipHwnd);
end;


　　　　　　　　　　　　　 查看评论 回复