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

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

编辑:说三道四文库 发布时间:2017-12-15 12:42
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;

}

只是简单实现而已,不太实用。
 果然成功,谢谢~!  送分
失控与逆转!企业移动化2.0时代下如何求变? 玩转物联网之MQTT 专访都灵创客教育奚炎:被忽视的Maker教育 13岁iOS开发者:Swift开发Sprite Kit游戏实践 专访豌豆荚「自动装」开发团队:无需Root即可批量点击「下一步」 iOS项目的持续集成与管理 《近匠》谛听科技,探索智慧家庭的智能网关 【简讯】Python 3.5.0b1发布 《算法的乐趣》作者王晓华访谈:多看、多做、多想是秘诀 专访李祎:Java在Testin的技术应用 React首部经典图书推荐:全程经典实例,360度剖析React.js 再做一个Android!Google发布第二代VR眼镜Cardboard Go语言开发常见陷阱,你遇到过几个? 奏响年度最强音 第七届中国云计算大会日程全公布(表) 【CTO讲堂】请在还年轻的时候,尽量多踩些坑 以细分使用场景为突破点 探究墨迹天气的体验创新 熟练成就创造——MathWorks全球副总裁Richard Rovner、产品市场经理赵志宏专访 Objective-C编码规范:26个方面解决iOS开发问题 豌豆机器小组发布最新WRTnode2R,支持华为Liteos、QQ物联与AllJoyn [新书推荐]Node.js项目实践:构建可扩展的Web应用 【简讯】Perl 5.22.0 发布,大幅改进代码! 【征文】特别策划——群雄逐鹿共话新型数据库 针对DCloud侵权质疑,APICloud发布声明 《近匠》小鱼天气,中国风与细粒度空气质量检测 Xcode 7 beta发布,Swift 2.0带来哪些新变化? 【有奖征集】MDCC 2015演讲议题征集全面启动 Swift语言那些鲜为人知的特性 《开源者说》08期:聊聊Java那些事儿 专访唐成:从小工到专家,PostgreSQL的修炼之道 《瞬间之美》作者Robert Hoekman Jr:如何成长为UX领袖人物? TIOBE 2015年6月编程语言排行榜:Swift份额上升,Objective-C成自由落体 请问如何设置srcollbar为xp的样式? 求助ddlb里面的事件触发问题。 请问会delphi,c++builder,Vc 现在去北京好找工作吗,工资应该会是多少阿,谢谢 RPC服务选项变灰色,与注册表的哪项有关? 想学LINUX,请推荐好书 能不能捕获某个窗口的图像,即使在这个窗口被其他窗口挡住的情况下? 找mp3 test 程式,出測試方案(請相關高人指點) 我来搬救兵的:导出数据窗口数据,然后图片(工具栏)不可以显示。 win2000安装问题 c在c++中出现的奇怪问题,请高手帮忙解答 MSMQ如何在从远程外网取消息队列的消息?? 用sql语句来对数据的随机读取(在线等.......) 使用ICS共享上网,ICS会自动给客户机分配IP,如何知道这个IP是多少? 一个控制窗体不能通过鼠标改变大小的问题 这是什么 wrox 的书的源码下载怎没有-up有分 求助,JSP+Crystal Report9.22问题。怎么导出EXCEL格式 CSDN的朋友,您如果有时间,给我写一个,快速傅立叶变换的程序把。 二叉树问题 谁对zope,cmf 有研究,谈谈设计思路? 问一下用过VB的人几个问题,谢谢先 关于显示千分位的问题 win98拨号服务器问题 你竟然不回我的短信! 如何在Datagrid的最后追加一行,这一行放多个文本框,用来添加新数据 谁有可垂直居中的QRLabel? 怎样通过程序模拟网页post数据到一个servlet? wrox 的书的源码下载怎没有-up有分 《我们共同的容闳》专辑明天在央视国际频道播出 程序发布问题,大哥大姐来帮忙呀 在线咨询:用ATL做ActiveX控件,能不能让控件是个多文档界面程序。 谁记得这道题是怎么解答的? 申请www开头的域名都是收费的吗 苦恼!考研还是工作! 短信产品:CMPP接口、SGIP接口、CMPP代理网关、计算机与手机连接的短信群发 你是不会知道的!! acrobat pdf 不能打印 怎样使程序发生异常时不弹出带红叉的窗口,异常可采用日志文件记录? 我下载了mysql-3.23.57-win.zip 安装在win2k server下为何不能用? 妹妹求救:用什么软件可以编辑.dll文件! 帮帮忙 高分求VS.NET2003正版中文版下载 XML数据导入到SQL Sever数据库 IIS运行不了ASP.NET文件,怎样做呢? oracle8i安装问-在线等待-急 怎么开启dbms_output的功能。 如何批量运行插入语句??? 数据库输出的问题 关于DELPHI 与 .NET 怎么样可以使CStatic类定义的对象变成灰白的,即disabled掉,不准在资源中改。 请教一个关于文件的问题~~ 有关爱情的句子.急 求四川话拼音方案! 语文课上老师让同学们背课文,我背下来了,老师在记分册上给我加10分.过了一会儿,有一位同学在课上捣乱,老师问他叫什么名字,他报假名,把我的名字告诉了老师(当时我只说一句“不是”但 一个革命者,在敌人的威逼面前,他会想到谁的诗句? I () () () greeting cards on Teacher'DaI () () () greeting cards on Teacher'Day.括号里应填什么? 一个革命者,在敌人的威逼面前,他会想到( )要是名言警句这题不用了 我是要一个正直的人,在别人的奉承面前,他会想(要名言警句) On which festival are special greeting cards sent,usually anonymously? 写一段话包含其中任意五个成语,推波助澜、改弦更张、一孔之见、釜底抽薪、无所不为、安土重迁、画地为牢、不刊之论、望其项背、文不加点、峥嵘岁月、激扬文字、风华正茂、百舸争流 each how do you feel about learning English?how are computer games good for you?how would you spend your perfect birthday?which is easier,to be a father or to be a mother?按照顺序回答哈,1、2、3、4 关于《感谢父母》的作文,急用!500字 孟建柱会见乌兹别克斯坦总统并主持中乌铁腕普京突击检查俄军核战备以色列攻击叙利亚军事基地 目标是俄制斯诺登莫斯科生活照曝光:休闲打扮未戴联合国称叙利亚完成对化武生产设施功能叙利亚当局表明愿无条件参加叙问题国际留祥路本月起改叫石祥西路 路牌错了破男硕士年薪5万月花400 穿旧衣相亲男子为救假装落水儿童瘫痪 28年后获美国六大互联网巨头致信国会要求改革监自称21岁大学生 40岁男子男扮女装内地生在港生存状态:存在偏见、融入沟德耀中华 大爱开封:王红兵的人生三部万万没想到,英国人用这招吸引中国游客其实你并不了解日本,一些关于日本的冷有钱就能任性造车?苹果凭何如此自信郑州男子喝酒驾车追尾发飙用英语骂交警全球首富榜刷新!普京身家两千亿美元洛阳父子徒步走提前5天到西安 全程约世界上最成功的投资开封近日遭遇两次局部地区短时强降雨当美联储不再说这个词 就要小心了刀斩轮回命运代言人傻妞到来学园都市之长枪盒子说我的极品娘子极品小子闯天下我的保镖是校花道途独酌格林的小书陆地之王岭脚村旅游拉姆央措湖旅游和平门旅游鱼峰公园旅游泰山宫旅游军校广场旅游亚细亚影视城旅游前后北岸旅游飞禽世界旅游海瑞故居旅游大境门旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘