说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

关于监视剪帖版 (给我一个送你30分的机会)

编辑:说三道四文库 发布时间:2017-02-23 02:20
HTML文档下载 WORD文档下载 PDF文档下载

下面是监视剪帖版的说明。
我照着做了。
但不成功
源文件:http://coolcalf.363.net/cp.zip

说明:

监 视 剪 贴 板 

在Form1的.h的private加上: 
void __fastcall ClipboardChanged(TMessage& Msg); 

在Form1的.h的public加上: 
BEGIN_MESSAGE_MAP 
 MESSAGE_HANDLER(WM_DRAWCLIPBOARD,TMessage,ClipboardChanged) 
END_MESSAGE_MAP(TForm) 

在Form1的.cpp内加上: 
void __fastcall TForm1::ClipboardChanged(TMessage& Msg) 

 POINT MousePos; 
 GetCursorPos(&MousePos); 
 PopupMenu4->PopupComponent=Form1; 
 PopupMenu4->Popup(MousePos.x,MousePos.y); //一有变化,就弹出一个菜单,复制,剪切或清除都能引发此函数 


在Form1的.cpp内有一个ToolButton 
void __fastcall TForm1::ToolButton9Click(TObject *Sender) 

 static HWND LastHandle; 
 static bool clip=false; 
 if(clip==true) 
 { 
  ToolButton9->Down=false; 
  ChangeClipboardChain(Form1->Handle,LastHandle); //结束监视 
 } 
 else 
 { 
  ToolButton9->Down=true; 
  Clipboard()->Clear(); 
  Application->Minimize(); 
  LastHandle=SetClipboardViewer(Form1->Handle); //启动监视 
 } 
 clip=!clip; 
}

Window的附件里就有一个剪切版查看程序的,如果你一定要在程序中实现的话建议:
if (Clipboard()->HasFormat(CF_TEXT))
 //如果剪贴版上的数据为文本格式
{
Form1->RechEdit1->Visible=true;
RichEdit1->text=Clipboard()->AsText;
//显示内容
}
else if (Clipboard()->HasFormat(CF_BITMAP))
//如果为图象格式
{
 Form1->richedit->visible=false;
Form->button->Glyph->Assign(Clipboard())
}
不是这个意思

我是说我上面提供的程序根本就不能监视到剪贴版的变化

:(
我试了一下可以的,我按我的方式改了一下:
void __fastcall TForm1::Button1Click(TObject *Sender)
{   static HWND LastHandle;
    static bool clip=false;
    if(clip==true)
    {
      Button1->Enabled=false;
      ChangeClipboardChain(Form1->Handle,LastHandle);
    }
    else
    {
      Button1->Enabled=true;

      EmptyClipboard();
      Application->Minimize();
      LastHandle=SetClipboardViewer(Form1->Handle);
    }
    clip=!clip;

}

只是简单实现而已,不太实用。
 果然成功,谢谢~!  送分
看国外巨头如何“绑架”用户? 一周消息树:5.5寸屏幕的iPhone 6概念机来袭、索契冬奥会开幕式现Bug 一周热点:美国大学生数学建模分析,Hadoop不是万能,探访雅虎数据中心 Google Play services 4.2全球推送,完全支持Chromecast! 移动周报:最快的Web开发IDE——HBuilder Google Glass是空有噱头还是实用品? 服务好“最后一公里”,高效CDN架构经验 “义军”突起,帮用户夺回大数据控制权 为安全,Google收购基于超声波密码验证技术公司SlickLogin 2014 Shenzhen Maker Faire:国内顶级创客聚会即将举行 若无创新,智能手机将是死路一条 任道远上任VMware中国研发中心总经理 Windows免费,微软方能解救PC市场 Hadoop核心架构HDFS+MapReduce+Hbase+Hive内部机理详解 将会出现iCar?苹果应该收购特斯拉的七大原因 广大程序员的福音:Bing Code Search扩展助你方便查找代码 深挖线下价值是当前婚恋交友网站获取盈利的突破点 15个最好的Bootstrap设计工具推荐 Google首席软件工程师Joshua Bloch谈如何设计一款优秀的API【附PPT】 Webix 1.5发布:一个强大的JavaScript UI组件库 四大著名风投:在我们眼中只有技术革新 美女CEO谈AWS:是香水还是毒药 国外一学生发明新计算机系统,用微芯片代替硬盘 《近匠》第12期:Yeelink——智能硬件云服务 三星Galaxy S5:home键内置指纹识别传感器、5.25寸2K屏幕 Google发布Google Glass使用守则 三星将发布新款智能手表 搭载Tizen系统抛弃Android 从Camera360 V5版本发布,看现代相机应用趋势 索契冬奥会API:赛事的数据直播 为什么开源企业的开源大旗正在褪色 尘埃落定 腾讯确认投资大众点评,获20%股份 啥是杨辉三角形啊? 在PB中如何做透明窗口?? 回车换行的问题 哪个串大? 为什么这个sql命令没有正确结束 有谁用过diamond access,请帮我看看这是什么错误? 怎样把数据库中的两个字符串转化为数值型然后再求他们的和,然后显示他们的和 谁听说过“IP助手函数”没有??? 请各位大虾帮我看看这两行代码,看看要怎么做才行?谢谢。 请教各位大师一个问题?以下代码总是出错,请多多指正,谢谢!!! 绝对送分题,送分了。 有现在工作是做asp+mssql的吗,留个qq号大家交流交流,我的是5662229 请问高程,熟悉delphi/sql server oracle linux 在武汉可以拿到什么薪水? 2001年的中级程序员成绩下来了(浙江)我的成绩是上午:45 下午:53 .请问我有几成的把握可以通过? 问个菜问题:BDE和ADO分别是什么,有什么区别? 我第一次用asp连接数据库(access2000),是不是需要先设置一下呀,为什么网页显示出错呀 为什么我想保存图片(*.bmp *.jegp)时总是出错,请高人指点。 error C2653: 'CTestView' : is not a class or namespace name 怎么解决? NT4.0的局域网,如何将WIN2000 PRO加入域中,以便能够访问它提供给我的一部分空间。 请问有谁知道在xp怎样侦测网络中发送到本机的数据流 VC,BROLAND C都没有graphics.h?? 关于Access数据库性能的一个问题 如果不用指针,如何删除内存变量 关于InstallShield Express-Borland Limited Edition 3.03的几个菜鸟问题 高手帮我啊 我该不该跳槽?(回答有分) 博弈算法的高手请进,区区小分不成敬意(求得分函数) 存储过程的问题 有关报表问题,绝对简单,但是我不会? 在程序中如何使用tabel.filter语法来过滤不同类型的数据???小菜虫我是有分必加 怪事!CString类怎么了? 如何去掉记录中的怪字符? 困惑初学者的难题:如何在VC7.0中编译调试运行小程序?哪位大哥能说清楚高分送上!帮帮我们这些在地狱中水深火热的难兄。。,谢谢。。。 急死我了!!用Table连接时总要密码,那位大哥能帮帮我!!! 如何用SQL Plus查看Oracle中表间关联? CWnd中的声明空成员函数OnSize究竟有何作用? 有谁知道关于电子版的windows api相关的书下载的网址呀。我在线等呀。 怎样用网卡对接电脑 抗议!IE是否自动为收藏夹做过备份? 如何通过NDIS编程取得以太网地址 今晚有多少人通宵? socket客户端能发,不能收是怎么回事? FDISK不能用了吗?真是奇怪呀?谁能帮我啊!!! 想通过sql语句找出这样重复的记录?如何写这个语句? 如何在delphi中显示和编辑sql server中超过256字节的字段 《程序员》的合定本有卖了吗? 最近我防问了一个黑客网站。一下中啦。桌面没有图标我看完啦。有没有高人帮我一下啊。 现有一个dll转为静态库的问题 请问怎样添加一个从CObject继承而来的新类啊? 如何在VB中用Outlook发电子邮件??? 妈呀,上午54,下午33,有戏吗?我完了。 知道电流电压怎么算功率 有哪些“月球之谜” 不知道LED灯珠电压,功率只知道电流单个0.50A.手电照明用的那种个头比较大.求电压,功率? 电流电压计算功率问题为什么P=1.732*UICOSφ P=1.732*UICOSφ 5 | 解决时间:2010-11-10 20:43 | 提问者:gongyekkk 我厂有一台低压电机啊.额定功率115KW,额定电流212A,额定电压380V.如果用P=1.732*UICOSφ.这里的 月球之谜急用!月球是怎么来的 一段话概括! 有形容感情失落的词语吗? 硫粉和铁粉加热的现象? 印刷电路板上的符号E、RY1是什么意思(汽车电动车窗主控开关)还有电路板下的W\L是什么意思?争求电动车窗电路图中提及的快速下降模块及其工作原理? 8g硫在空气中完全燃烧,生成二氧化硫的质量是多少?化学方程式计算 英语翻译这是我手机上的几个图标.麻烦知道的告诉下.1 Myclock 2 Mobipocket Reader 3 Ucweb 4 Bomberman Deluxe 5 Anyview 6 Messenger 7 HandCalendar 就是以上7个英文.希望懂英文的高手指教下... 泵车租赁网里有泵车司机招聘,泵车司机求职有没有呢 若一定质量的煤中含有16g硫,计算这些煤完全燃烧时生成的二氧化硫的质量 英语翻译1.学风严谨,崇尚实践.2.人才.3.冶金工程.4材料科学与工程.5世界小姐.6.奥委会主席.7.节能减排. 在测量小灯泡实际功率实验中,为什么灯泡电流与电压不成正比 32克硫在氧气中充分燃烧,生成二氧化硫的质量是多少? 《月亮在敲门》阅读答案 LED电压电流6个高亮度LED,工作电压是3.3—3.5V,工作电流是300mA,串连后一共需要的电压和电流多少合适,怎么算的? 白兔和月亮同样的月夜,同样的阴晴圆缺,是什么使白兔“从前的闲适心情一扫而光?”为什么会这样? 一个LED灯珠电路中的电压,电流,瓦数的计算!如图,假如在各个数区中并联100个3V电压,20MA豪安LED灯,请问各个数区的电流,电压,瓦数还有每串的电流,电压,瓦数三串的总电压和电流,瓦数.总电源要 硫在空气中燃烧会产生什么? 白兔与月亮白兔和月亮 在众多的兔姐妹中,有一只白兔独具审美的慧心.她爱大自然的美,尤爱皎洁的月色.每天夜晚,她来到林中草地,一边无忧无虑地嬉戏,一边心旷神怡地赏月.她不愧是赏月的 英语翻译Transfer impedance/unit length of the continuous isolatorBased on the series solution of the sta static response of the clamped beam,its mobility M becomes这不是完整的一句话 是和函数式连着的 求翻译 硫在空气中燃烧,生成二氧化硫 错在哪? 中围绕白兔和月亮的关系,其主要情节可以概括为_____,_______和______ 英语翻译这个案件让我们深思,虽然现在这种案件发生的越来越少了,但是还是有少数存在.政府应该加强公民的思想道德建设,以确保社会的安定英语翻译,不要用翻译工具 形容对生活失望的词语对生活充满了失望无望 在众多的兔姐妹中,有一只白兔独具审美的慧心.她爱大自然的美,尤爱皎洁的月色.每天夜晚,她来到林中草地,一边无忧无虑地嬉戏,一边心旷神怡地赏月.她不愧是赏月的行家,在她眼里,月的阴晴 英语翻译转化 纳入 条约内国适用 心里伤心难过绝望用什么词来形容 到目前为止,人类已发现了几种元素? 英语翻译1.Viruses are simple,acellular entities consisting of one or more molecules ofeither DNA or RNA enclosed in a coat of protein (and sometimes,in addition,substances such as lipids and carbohydrates).They can reproduce only withinliving cel 比绝望还绝望,能用什么词语形容? 人类一共有几种感觉? 英语翻译If the force is periodic,it can be decomposed into a combination of harmonic ones on use of Fourier series.The machine and foundation can vibarate with much greater independence above a resonance frequency of the system.Here take the tran 阅读题参考答案苦瓜 报秋,(宗璞写的)遍地黄金 鸟语(黄明山)生命的本质 盼望(艾青)生命幻想曲(顾城) 到现在为止,所发现的人类化石有哪几种? 最绝望的语句!对这个社会的绝望 形容对社会绝望的诗词 目前为止人类发现了几种动物?目前为止,人类已经发现了有多少种动物?是200万、100万还是180万种? 很失望 词语形容很失望的成语有什么 / 阅读题..请帮我解答..给我作个参考罗曼`罗兰描写了名人们相貌丑陋.体弱多病.于家庭关系紧张.与同事不和等不足之处,这是否会影响你对他们的崇敬或尊敬?这种兼顾人物优点和缺点的写法, 人类现在为止发现的动物种类有几种 关于失望的诗句 初冬月《初冬月》一道阅读题解答①秋意尚浓,恍然就到了初冬,月亮也带着秋温,走进了冬的夜空.②天黑得早了,晚饭后摸黑回宿舍,过了山头,豁然见西南山坡上空这轮橙黄明净的初冬月,低垂 柔印使用水基油墨和uv油墨,与胶印、凹印使用水基油墨和uv油墨有何区别? 形容懊恼失望的词语 印刷电路板的化学方程式 2W的LED灯珠的额定电流是多少? 硫在空气中燃烧,产生有刺激性气味的气体.属于什么性质产生有刺激性气味的气体,这是化学性质还是物理性质 印制电路板的步骤不是很难啊 2W的LED单颗灯珠的额定电流和电压分别是多少 月球之谜 五下最牛送水工第2题答案。 印刷电路板的原理问题2FeCl3+Cu=CuCl2+2FeCl2这反应和印刷电路板有什么关系? 下列物质在空气中燃烧后,产生都是白色固体的是( ) A.硫、木炭 B.磷、镁 C.煤、石油 D.蜡烛、铁 月球之谜四下阅读答案“这一连串实验结果”指哪些实验结果?把宇航员从月球上带回来的四种尘土化验一下,结果让人感到月球还有许多的谜.把月球尘土撒在细菌上做试验:第一种、第二种 表达感情的句子请打出来 白兔和月亮 问:1这则寓言给我们什么启示?2请用三个小标题概况这个故事的情节 3 白兔2次赏月的心情有什么变化?为什么会产生这样的变化? 《月球之谜》四上阅读答案 (Thank you soooooo much!)“这一连串的试验结果”指哪些试验结果?什么使人感到费解? 请问一下谁有形容感情距离越来越远,越来越失望的句子,稍微抽象点的比如:如果中途有障碍物,两点之间最短的路线或许是曲线. 阅读《白兔和月亮》,回答下列问题1.“或是无忧无虑地嬉戏,或是心旷神怡地赏月”一句用了什么修辞手法?有什么表达作用?2.“白兔仍然夜夜到林中赏月”,句中“仍然”可否删掉?为什么?3.“
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn