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

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

编辑:说三道四文库 发布时间:2017-10-21 04:46
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;

}

只是简单实现而已,不太实用。
 果然成功,谢谢~!  送分
检测驱动器容量-Delphi资料 检查驱动器是否就绪:-Delphi资料 建立简单的任务栏应用程序-Delphi资料 将程序放在Windows启动中-Delphi资料 将光标限制在某区域-Delphi资料 将文件放入回收站-Delphi资料 禁止用户切换任务-Delphi资料 控制面板大全-Delphi资料 控 制 系 统 菜 单-Delphi资料 拦截消息处理过程-Delphi资料 利用API函数开发DELPHI程序三例 利用Hook技术实现键盘监控-Delphi资料 利用浏览窗口 DragDrop 任意文件-Delphi资料 利用未公开函数实现Shell操作监视-Delphi资料 妙用Delphi的标识号 判断Windows类型和版本-Delphi资料 判断一个程序是否dos版本:-Delphi资料 屏蔽系统按键-Delphi资料 屏幕抓字技术揭密(转载)-Delphi资料 启动控制面板-Delphi资料 取得系统所有窗口的方法-Delphi资料 全部窗体可使用鼠标点中移动-Delphi资料 让图像旋转-Delphi资料 热启动控制-Delphi资料 如果隐藏和显示Windows的任务条-Delphi资料 如何把文件删除到回收站中-Delphi资料 如何从任务栏上隐藏应用程序的按纽?-Delphi资料 如何得到Windows 的temp路径-Delphi资料 如何得到WINDOWS的SYSTEM路径-Delphi资料 如何得到上一个激活的组件-Delphi资料 如何得到系统目录-Delphi资料 *.xmf是什么文件呀!用什么软件才能打开! 事到如今,我依然最喜欢听郑智化的歌~~ 怎么用php做站内搜索? 什么是硬盘的序列号,它是怎么来的 有谁写过医务室药品进销存方面的程序的,请指点一下!提点建议! jbuilder中说找不到路径,该怎么配置啊 如何彻底删除DBF中的记录 _ConnectionPtr 对象在 Close()之前怎么判断它是否已经关闭?高分相送 请教linux下omniORB CORBA服务器的问题 如何旋转控件 无法正确显示ACCESS数据的问题 索尼爱立信t68ie 有 和弦铃声吗??????????????????? 当把htm页群发邮件,如何能实现对方用文本格式浏览什么都不显示,只有超文本才正常显示? 如何判断自己的程序窗口的坐标位置 请问:关于POINT与LODWORD之间的转换方法? 急!!!!tomcat服务器,linux系统下的JSP文件如何解决中文乱码问题?必有重谢! 急,string的如何插入到access数据库中memo类型的字段 怎么生成动态数组? 有谁给个下载Visual C++ 的地址,因为机器没光驱,不好买盘装(谢谢) GUI高手请进 [转]今年高考首例满分作文(爆笑)>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> <<delphi6开发者指南一书中的小问题 呜呜呜!!没人回答,再提!!怎么读出上传的文件内容,(根据文件路径/文件名链接打开)? bmp 图形格式转化成 jpg格式? 在Domino中,Notes命名域、Notes网络域、TcpIp网络域有什么区别,如何进行设置? 菜鸟提问 刚用JB就受挫!!!! 表名、列名都用中文会影响效率吗??? 我删除自己发的帖子怎么也会被扣信誉分? PHP3如何向ACCESS数据库增加一个记录! 第一次编译通过,再编译就一直报错。。 想了解一下上海交通大学软件学院软件工程硕士的情况,读过的或了解的请联系msn:w__j76@hotmail.com 请问如何读出某一指定point点的 颜色RGB值? 有八楼的程序员吗?给分! [讨论]滚动条的秘密 人邮或清华的高程试题分析,哪里有下载!! DirectX,OpenGL 是什么呀?是用于什么方面的呀? 请大家帮帮我吧。我快闷死了。 用BDE连接,程序在其它机子上不能运行 一个关于查询效率的探讨! 如何获取当前机器中注册的控件? 用gprs拨号上网,不能成功。 消息队列能否应用在Internet上?有没有这方面的例子? WinGate安装问题? .net中的并发在实际中的运用! 请问怎样控制行距? 终端服务许可证的问题(100分) c++绝对值的函数是什么?包含什么头文件? 感谢csdn,感谢officeman 偶终于入门成为程序员,给officeman 100fen 在线专等:问一个asp加密口令函数中的防止溢出和ASC码的问题! 请问怎么做FLASH才不会下载到客户端? 吉利金刚发动机下水管没温度怎么办 在开灯时水温高请高手指点 当x=_____时,代数式x^2+1/2-3x的值为负数 已知m=根号3,求(1-2m+m平方)/(m-1)-(m-1)/(m²-m)的值 元素周期表、六十四卦、圆周率派等,像这类东西你还知道哪些圆周率、自然对数等都归入无理数一类。再比如我国历代纪元表、美国历任总统动物(十二生肖等) 植物(十二月花等) 病毒 当x=()代数式3x+1/2想值是负数 已知1是关于x的一元二次方(m-1)x²+x+1=0的一个根,求m的值和另一个跟 在Mathematica中输入f[x_]=x*Sin[x]+x2得到什么? 函数的值域有哪几种解法请举几个例子, 《手指》阅读理解大拇指在五指中,形状实在算不上美.身体矮而胖,头大而肥,人家有两个关节,他只有一个.但在五指中,却是最肯吃苦的.例如拉胡琴,总由其他四指按弦,却由他相帮扶住琴身;水 如果A(-2a,b-2)与点B(4,3)关于原点对称,求a.b的值并判断A在第几象限? 糸 这个字怎么读啊?拼音?急糸 这个字怎么读啊?拼音?急 所以(m+1/m)²=13,怎么得到的? 用1-20号元素符号或微粒符号填空最外层电子数等于次外层电子数的元素最外层电子数等于电子层数的元素有最外层电子数为电子层数的两倍的元素与氖原子具有相同电子层结构的微粒有与氩 若点A(a+b ,-2)与点B(4 ,b-2)关于原点对称,则点C(a ,b+1)在第几象限? 糸采 这个字怎么读啊 3a-2b+c=-2 2a-b+c=-1 a+b+c=2 THE RESTAURANT AT THE CHEDI怎么样 如何反解法求这个函数的值域~!@f(x)=5x-1/4x+2 一道高一化学题20101221日提问-----请求讲解某无色溶液中加入少量氧化铝粉末,氧化铝粉末迅速溶解,则该溶液中一定能够大量存在的离子组是( )A、K+、Ba2+、NO3-、Cl- B、Na+、NH4+、SO42 什么字含有土的意思 函数值域的解法求函数Y=根号X+根号1-X 的值域为不知可有步骤? 棕色皮包沾上了一块油迹,擦不掉.去护理店重新刷一遍油能不能解决?请提供一些好办法, 什么字带有土的意思 60v电动车仪表盘标识的有60公里的时速,实际能够达到这个速度没. 同样长的铁丝折成的平行四边形的面积一定相等吗? 英语语法题(19)____friends Betty had made there were all invited to her birthday party.A.Few of B.Few C.The few D.A few答案+思路,3Q 是不是只有电动车装了60V的大容量电池就可以开60公里每小时的速度还有如果新买一辆电动车,如何改装可以把速度最大化的提升 热能可以完全转化成电能吗? 英语语法题 虚拟语气19题目为图片,请解释答案+翻译句子,最好能写出解题的思考过程, 我就想不通了,为什么有些人不做作业不复习考试都比我好我真的搞不懂,有些人上课不听,晚上回家又是玩,一到考试就考的好.我自认为很努力,就算不是很努力应该也比他们要努力的多,我作业 THE CHEDI CHIANG MAI怎么样 英语语法题 名词性从句19题目为图片,请解释答案+翻译句子,最好能写出解题的思考过程, 计算圆心角是30度,直径为18厘米的扇形的弧长和面积? THE GARDEN CHIANG MAI怎么样 言子旁右边一个虎怎么念 有什么办法可以不做作业提高成绩?不想做作业又不想让成绩下降,怎么办? THE OLD CHIANG MAI CAFE怎么样 英语语法问题13请写出判断依据 求教~已知扇形的弧长和半径,求弧长所对的角度是多少?已知扇形的半径是9,弧长5,求弧长所对的角度是多少? 判断2x²-x-2=0的一个取值范围一个解X的范围 f(x)=sin(2x-π/4)-2√2sin²x的最小正周期是 孩子不做作业 成绩差怎么办 如果点A的坐标为(-a的二次方-3,B的二次方+2)那么A在第几象限?试说明理由 f(x)=sin(2x-π/4)-2√2sin²x的最小正周期注:2√2sin²x,sin²x不在根号下 求助一个汉字怎么读?上面一个"代"字,下面一个"糸"字这个字不是我创的,康熙字典里有:http://www.zdic.net/zd/zi3/ZdicF0ZdicA5ZdicBFZdic9D.htm 如果点A的坐标为(-a的平方-3,b的平方+2),那么点A在第几象限,说说你的理由 诗与词有哪些区别 糸色 望 第一个字怎么读?看了《绝望先生》就是查不到“糸”字 还是复制来的 cos(x+1)½-cosx½→-2sin{[(x+1)½+x½]/2}*sin{[(x+1)½-x½]}如何转化 当x为何值时,代数式6分之3x—2的值是负数 小糸车灯的"糸"字怎么读? 重为50N的物体放在水平地面上,物体的底面积为100cm²,求物体对水平地面的压强. 不带脏字的损人方法!对于没口德的男生,老是用脏话开玩笑,怎么样说才能让他们觉得既不好意思又不用说脏话?让他们以后不敢再轻易和女生开过分的玩笑? y=2sin(2x+∏/6)的对称轴和对称中心怎样求 程序框图中的判断框的取值范围如何判断?比如给个题目.给了程序框图.给出了输出结果.让你求判断框中的取值范围. 当x=________时,代数式-5/(3x+1)的值是负数guocheng 请解答15题和16题,求详解 判断2次不等式的值的取值范围比如12x^2-6x-18>0 最后算出2个数1和3\2.那x是大于1,大于3\2,还是1 当x=________时,代数式-5/3x+1的值是负数 15-16题详解 风行网跟拍母婴计划 对话艾菲谈家庭往百度地图新版增加推荐菜功能 贴心受食俄媒称泰国沉船事故造成7人死亡 含3想坐飞机逃生门附近座位?德航新规定要英国三百余名议员被指仍挪公款用于日常埃及前总统穆尔西即将受审 罪名成立或法国前部长称法国总统奥朗德头号问题是韩国总统朴槿惠巴黎会见联合国教科文组阿富汗总统批评美无人机炸死巴塔头目时日本一司机醉酒驾车连撞5名女中学生后英国三百余名议员被指仍挪公款用于日常埃及前总统穆尔西即将受审 罪名成立或印度将发射火星探测器 舆论对印度太空印尼组织攻击澳大利亚百家网站 抗议澳杨洁篪会见英国客人新加坡用不粘漆对付小广告埃及审判穆尔西或酿新一轮冲突印度东北部发生袭击事件7人死亡布宜诺斯艾利斯摄影展点燃阿根廷人摄影布宜诺斯艾利斯摄影展点燃阿根廷人摄影澳维州公租房房租欠费飙升 议员归咎政审命案证言遭疑 两证人出庭吸取国学精华 创新教育模式亮相抗战馆数百条鲶鱼跳出通惠河高考过后仍有机会申请美国大学一个老人和十个失足少年闲置培训中心9种食品全市下架7月12日全市中小学生放暑假完美押题中高考 新东方锻造高分奇迹大学生所学专业与从业岗位 “没有关系下一个冻谁?巨星演绎 经典绝杀海峡组合再向前博物馆里看足球8场比赛 5场加时微博汇比利时队不会走太远“红魔”加时才疯狂世界杯射手榜风光只一时
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘