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

用Delphi制作动态有声标签

HTML文档下载 WORD文档下载 PDF文档下载
用Delphi制作动态有声标签

原理:通过标签和表单的OnMouseMove事件判断应何时改变、恢复标签位置,用sndplaysound()函数使鼠标触发相应事件后执行播放声音的动作。

首先进入Delphi集成环境,在“File”菜单中选“New application”,在“Standard”选项卡上选取两个“Label”放置到表单上。在Object inspector中将Label1与Label2的“Caption”属性设为“关闭表单”。双击“Font”属性,将字体大小设为12。再将“Top”与“Lef”分别设为108、170。将Label2置于Label1之上。以上是两个标签的共同属性,现在选Label1,将其颜色设为白色,再选Label2,在Object inspector中双击其OnMouseMove项,编写如下代码:“Label2.Top:=109;”,接下来再为表单编写OnMouseMove事件代码:“Label2.Top:=108;”。运行表单,把鼠标移到标签上,怎么样,效果还不错吧。下面让我们为它加上声音。

找到两个短小的wav文件,假设为cj1.wav和cj2.wav。在表单单元中的uses句之后加上“mmsystem”(即调用Windows多媒体函数动态链接库)。在implementation下加上“f:boolean;”。为Label2的OnClick事件编写代码:“sndplaysound(′cj1.wav′,snd_ async);”,为OnMouseMove事件加入“if f then sndplaysound(′cj2.wav′,snd_ async);f:=false;”两句。最后在表单的OnMouseMove事件中加入“f:=true;”。

保存文件再运行它,动态有声标签就制作完成了。

以上在Delphi3.0中运行通过。

Google Play将逐步移除广告拦截应用 Shapeways公司开放API 3D打印时代来临 37signal设计师眼中的iOS与Android系统 VMware/Oracle向公有云拓展生态系统 AWS“山寨”技术伙伴创意与产品,是自我完善还是杀鸡取卵? 苹果发布OS X 10.8.3 新版Boot Camp可支持Windows 8 恭喜!麻省理工两密码学教授获2012图灵奖 Rovio的逆袭,发布首款RPG游戏“克鲁德一家” 百会呼吁微软提供合法经营Office&#160;365的相关证明 谁说Vim不是IDE?(四) RDS升级:单DB实例最高可获得3TB存储和3万IOPS 移动周报:“先验证,后开发”的App开发必杀技 Supercell首席执行官谈公司运营理念 SwiftKey:Galaxy S4输入法背后的开发团队 前IE团队领导:IE是如何走向衰败的 谷歌更新BigQuery 允许在其中加入大型数据集 初创公司Spiral Genetics:超越现有DNA序列分析平台40倍速 六大开源监测工具 你用过哪个? TUP第28期:Intel 微软 Yahoo的大数据实践 惊变14天,从“小白”到上架App Store商店 “今日头条”CEO张一鸣:我是爱冒险的技术宅 OpenStack基金会COO Mark Collier:2014年将超越AWS Evernote更新Android SDK:新增商务服务并拆分“印象笔记” 主流编译器对C++11的支持现状比较 GCC 4.8发布,提升对C++11的支持 英国政府下令首选开源软件 为何美国IaaS收购被引爆?基于IaaS的四个误解和四个猜想 Kinect SDK v1.7迎来重大更新 如何激励同事编写单元测试? 谷歌GCE vs. 亚马逊EC2:快源于谷歌本有的底蕴 不要责怪开源技术 它是无辜的 呵呵!兄弟送分来了!!vb实现两个小case/kiss(马上给分) Tomcat 4.1.18运行什么命令后,可以设置成为w2k中的一项服务? (在线等)从广播地址某端口接收数据前,如何判断该端口有数据? 我為何沒有csc程序 kdevelop开发文档 如何获取出错信息 关于水晶报表!!!!!!!!!!!!!!!急! 散分 我刚开始学asp,谁能告诉我这段代码有什么错误?请各位大侠帮忙啊,有大分! 寻一女友:发展方向——老婆! 什么是nt service编程 有关串口编程 请教: DDL事件审计的问题。 自定义组件问题,急! 怎么用Ctrl+A 来触发一个按钮的click事件? 急问:vba用ado对access操作,2000下能用,98下不行,要疯了! 关于数据库服务器的费用预估 注册表和主页的问题!!!!!!!!!!!! 我熟悉C++,请大家推荐几本学习JAVA的基础书! vc转java,怎么转啊。 成语接龙----大家一定要做最长的水贴!!!!!! 打算攒台电脑, 请水友帮忙推荐一个 主板(集成声卡)+ 显卡 , 谢谢 ASP新手请教——动态显示的问题 再开一贴,请同行帮忙,也是100分 如何在DataGrid中处理光标离开某个Cell时的事件? [提问]请问哪里有象记账凭证现金输入式的控件?! 谢谢。 怎样在win2000下隐藏linux的分区? 如何查看表的定义及约束 控制条与对话框的问题 那位老兄有<windows防火墙与网络封包截获技术>的光盘,我光有书,没盘 請問怎樣獲得本頁的文件名(除文件名其他部分都不要﹐包括在框架中使用正確) ForBeginner(No.1):Keyword->RedHat8中文显示,AC97,xmms播放mp3 哪位大虾帮我看看这段代码,不胜感激 能否在JSP,Servlet中用asp(js)写的页面 浏览器被黑--恶意加锁:win98的ie 5.5浏览器打开时出现“分级审查窗口”,必须输入正确的密码才能使用? 请教一个关于微软件的.net开发环境的问题?! 有谁用过“微软公文盖章系统” 50分悬赏||____||一个常识问题 java界面控制 有关ASP+ACCESS的查询数据出错,报错 “超出系统资源。 ” java界面控制 求一用php实现压缩/解压缩的程序. 请问在WORD200中有什么好的方法在下划线中输入文字,而下划线不随字体而改动? Excel中保护工作表? 请问使用16倍速的刻录机能刻32倍速的盘吗 MYSQL如何实现自动删除数据库中的记录 紧急提问:CB中那些类用.操作符 请问一个概念的问题:??????????????????????? 如何生成报表文件啊? 装了oracle8i以后怎么登陆不了? 如何按照记录号转到指定的记录?不用SQL 奶糖每袋10分之3千克,每千克18元,买了5袋奶糖,应付几元? 如何写好发言稿 永不贬值的财富根据你的理解和想象,在第②段的横线处补写几句描写瞎婆婆外貌的句子. 为什么有些人不会拼音打字而会五笔打字呢? 演讲稿怎么样写好 永不贬值的财富问1.画线句子是 因为,它在我的眼里,已不是普通的一元钱了,而是一笔取之不尽、用之不竭、永不贬值的精神财富,它让我在人际关系日益商品化的今天,也懂得如何用一颗真诚 有没有勤学苦练成才的例子 甲乙丙三个体积为V的实心物体浸在同一液体中,甲浸没V/3,乙浸没V/2,丙露出V/3,则ρ甲:ρ乙:ρ丙=? 下列句子中没有语病的一项是1.最近一段时间,各种传媒 报纸 广播 互联网大量报道了布什政府武力解决伊朗核问题的计划.2.本市某医院于前年率先推出了"病人选护士"后,今年三月推出"病人选 怎样才能写好演讲稿?其实平时写作文还是很有文采的.可到了演讲稿上就卡了壳,不仅不出彩,而且写的根本就是不适合演讲的一张堆砌的词藻.不知……能不能传授一下写演讲稿的经验啊? 甲乙丙三个实心立方体◆分别放在水平地面上,他们对水平地面的压强相等,已知密度甲大于密度乙大于密度丙,若在三个上分别放一个质量相等的铜块,则三个立方体对水平地面的压强大小关系 请问过路费或者过桥费用英语怎么说呢 怎样写好演讲稿 三个体积相同不同材料制成的实心铁球甲乙丙,放入同一种液体中,最后静止,如图所示,他们的自重大小求他们的浮力、密度、重力大小比较,不求 关于长沙过路费 过桥费的疑问小弟家09年国庆买的车,差不多100天的样子.最近,我再抽屉发现一张发票,原来是汽车车辆通行费年票,产生很多疑问.1、年票是每年都要交吗,是不是当地比如长沙 勤学苦练的故事及其评论 植物无性繁殖的特点? 国庆期间哪几天是全国免收过桥过路费的 有关勤学苦练的名人故事 时间是变化的财富.时钟模仿它,却只有变化而无财富. 英语作文开头要不要空格空的字符是怎么算?两个单词还是几个单词还是其他…… 有哪些勤学苦练的故事, 时间是变化的财富,时钟模仿它,却只有变化而无财富 的意思 英语作文前用空格吗? 写笔袋的说明文 不用钟表计算还能用什么物体来计算时间 无性繁殖指的是什么?有什么突出特点? 急求介绍我的学校的说明文,600字!不要太深奥的!我学校:沙市六中,最好是写本校的 一本书看了三分之一后,小明又看了20页,这时已看与未看页数的比是7:8,这本书共有多少页?星期一要交,过程也要写出来 Myself的英语作文50个字左右 盐 硫酸 酒精 酱油 醋 花生油 属于导体的是哪个啊 一辆客车从甲地开往乙地,当行驶到超过中点50千米处时,正好行完全程的70%,甲、乙两地相距多少千米? 一项工程,原计划42人工作8小时,12天完成.工作7天后,调走12人,每天还是工作8小时,乘下的工程还要几天才能完成?如果要求按原计划日期完成任务,每天应工作几小时?请列出详细的计算过程. 求一篇有关于人生格言的演讲稿本人星期1要求演讲!要在讲台上是引用一个故事说明一个格言然后联系到自己!不要那么抒情的就好像是在升旗一样那种!不要那种!就当是讲个故事说明道理那 一辆客车从甲地到乙地,行完全程的2/5还多20千米时离乙地还有70千米,甲乙两地相距多少千米? 小学四年级的数学题,不能解方程a和b共有10个苹果,a比b多2个个苹果.问a是多少个苹果.此题答题当然是6,但要求不能方程做出.因为小学四年级还没有方程. 超市把15.6元/kg的穆糖16kg、22.4元/kg的奶糖15kg、12.8元/kg的水果糖25kg混合称什锦糖出售,这种糖应卖多少元/kg?(结果保留一位小数) "怎样才能使自己充实啊" 用英语怎么说 《水浒》这部小说反映的是英雄被逼无奈而上梁山的故事.这反映了当时阶级矛盾的急剧恶化和----------的社会现实. 你连拼音都打出来了用英语怎么说 充实自我用英语怎么说 什么是议论文什么是说明文什么是记叙文(要求详细具体地说) 给碌碌无为编个成语故事 充实的英语怎么说?充实的用英语怎么说? 熟悉《阿长与山海经》的进《阿长与山海经》围绕长妈妈写了那几件事?重点写哪些事?阿长是怎样一个人?从哪里可以看出?鲁迅对她的感情怎么样?为什么说阿长为我买了《山海经》使我发生 有三位小朋友参加投篮球比赛,第一位与第二位平均投中17次,第二位与第三位平均投中20次请问第三位和第一位相差多少次? "充实”用英语怎么说 心灵鸡汤的内容概要 从一篇发言稿谈如何写好人物介绍 甲乙两位同学进行篮球比赛,甲投中了20次,有一次没有投进;乙投了60次,中了56次.谁的命中率高? 今天我很充实英语怎么说 如何处理经常迟到的学生呢?高一年级,早上老是迟到 中国的人口密度是 丹顶鹤飞行时为什么排成110度的角 如何处理迟到的学生 怎样让选择题的命中率高些就是我做选择题总是很快但是没啥效率 一支钢笔5分之32元,买8支同样的钢笔要多少元? 怎么写好《祖国在我心中》 演讲稿非常急啊! 1.买5支钢笔需要28元,照这样计算,再买8支钢笔,还需要多少元?2.建筑工地需要54吨水泥,先用拖拉机运16次,每次运1.5吨,剩下的改用卡车运,每次运5吨,还要运多少次?3.2009年第一季度某市出口总额 浙江试发布县级城市空气质量指数 丽水杭州整治两大火车站周边非法黄牛黑车新加坡星展第三季盈利8.62亿新元 日俄防长会谈当天俄军机飞临 日战机紧萨拉热窝两有轨电车相撞 40多人受伤埃及多地爆发大规模反对军方游行【高清环球时报专访中国赴叙利亚参加化学武器会议记录爆奥巴马医改网站开通首天仅6加拿大女子相亲网站“钓男人”吃免费餐梅德韦杰夫谈监听丑闻:美国不能这样厚俄“彼得大帝”号核动力巡洋舰进入地中韩国三四流整形医生赴中国淘金 自称顶近二成美国人称见过鬼 女性比男性更易男子把鸡蛋强塞女子下体后捏碎性侵 辩短短数小时吸金近万 黑采砂船疯狂吞噬双十一:你的订单支付没成功 收到这样平阳孕妇横穿马路被撞倒 村镇干部施救暖湿气流hold住全场 浙江未来一周西湖国际马拉松周日开跑 周边公交线路中国100大最佳市政府出炉 浙江9个近二成美国人称见过鬼 女性比男性更易用另一种视角观赏大姐姐——Pico1P2P平台禁止承诺保本保息是真的吗?惊呆了!Xplay5竟搭载首批6GB美阻拦人民币,赔了夫人又折兵,人民币欢欢喜喜送福来,蜗牛移动陪你闹元宵!香港航空倾力打造“一票双城 精彩倍增猴年买房还是存款?先看看各大银行利率原油净多头大减 本周“冤家”会面油价吃汤圆的正确姿势你知道多少?威高地产首届民俗文化庙会日吸客约1.国民党主席补选今日登记 洪秀柱赴新北2016央视元宵晚会节目单新鲜出炉(纯翠文化吴炜专访:什么是当下最具潜力丙申初春 再聚双喜财政部长:企业工资增长过快 最终恐伤天价素菜降价咯,花式素菜烹饪法学起!便携无线充电利器--有感科技智能无线日本欲仿美派舰闯南海,中国冲绳杀手令油价低迷俄罗斯石油就该减产,普京偏偏只知道麻辣小龙虾的你太out集合竞价中的秘密
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘