为什么通过系统消息监视系统剪贴板,在打开IE选中文本后,点击复制能正常将文本粘贴下来,但这时若关闭IE窗口,又会重复粘贴刚才的文本。在WORD里复制后退出情况也是如此。请各位高手指教。
解决方案 »
- Delphi使用CodeSoft模板
- 大家帮看看,一个自己写的简单组件--------为什么不能显示在窗口上?
- 关于bsTrayIcon控件的问题!
- ???delphi7.0装在winn2000server上为何找不到Qreport面版???急急急急急
- udpsocket接受到的数据为什么是乱码?
- dll中self使用
- 帮忙看看,在线等待,Unsatisfied forward or external declaration,贴出代码!马上给分!
- 请问如何向Tlistbox中追加数据。
- 请高手出招:::Tstrings 的构造问题!!
- 我编程时用到了dao36.dll,但怎样在安装时自动注册或是在程序运行中编程实现
- 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;