监视系统剪贴板重复粘贴问题 为什么通过系统消息监视系统剪贴板,在打开IE选中文本后,点击复制能正常将文本粘贴下来,但这时若关闭IE窗口,又会重复粘贴刚才的文本。在WORD里复制后退出情况也是如此。请各位高手指教。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 将剪贴板清空,这样的话,其他软件就不能粘贴该文本了。程序流程简述如下://加入到系统的剪贴板监视链中procedure FormCreate(Sender: TObject);begin FNextViewerHandle := SetClipboardViewer(Handle);end;//监视剪贴板procedure WMDrawClipboard (var message : TMessage);begin SendMessage(WM_DRAWCLIPBOARD, FNextViewerHandle, 0, 0); if [ReadyOK] then [SaveClipboardText];end;//撤销监视procedure FormDestroy(Sender: TObject);begin ChangeClipboardChain(Handle, FNextViewerHandle);end; 难道IE窗口关闭时也触发WM_DRAWCLIPBOARD? DBGrideh 下拉框 过滤 日期问题,急 怎样清空一个ini文件中的所有内容啊 怎么防止重复打开文件? ●●●请问: 我使用了 TdxDBDateEdit,如何将时间也保存进数据库????? 如何处理图象的插入 强烈要求结贴。来着有分,半小时结1次 ADOQuery查询Access 数据表居然要3分钟??? 满分相求--问题很简单 怎样更新EXE文件中的资源的DELPHI源码 delphi做WEB开发的请来!! 高手请看
程序流程简述如下:
//加入到系统的剪贴板监视链中
procedure FormCreate(Sender: TObject);
begin
FNextViewerHandle := SetClipboardViewer(Handle);
end;//监视剪贴板
procedure WMDrawClipboard (var message : TMessage);
begin
SendMessage(WM_DRAWCLIPBOARD, FNextViewerHandle, 0, 0);
if [ReadyOK] then [SaveClipboardText];
end;//撤销监视
procedure FormDestroy(Sender: TObject);
begin
ChangeClipboardChain(Handle, FNextViewerHandle);
end;