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

用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中运行通过。

Facebook开源移动网络测试工具Augmented Traffic Control 用JavaScript开发移动原生应用,Facebook正式开源React Native! 《知性》,探寻移动化社区的敏感带 【程序员电子刊精选】技术人员如何参与产品设计讨论之激活那一潭死水 Google开源代码构建工具Bazel 长点心吧!为啥健身应用让你越减越肥? 微信公众号能删除单篇文章了 安卓Android手机应用开发入门书籍推荐 自动释放内存!Facebook推出强大Android图片库Fresco 《近匠》AR学校:从教育领域看增强现实机遇何在 专访Mellanox CEO Eyal Waldman:InfiniBand与以太网齐驱并进 性能更胜一筹 IM助你打造千万级App——容联•云通讯线下沙龙 乐视智能硬件再发力,超级自行车今发布 专访格灵深瞳CTO赵勇:为" 计算机视觉" 赋予智慧的光芒 【程序员电子刊精选】水火不容?研发人员也是产品经理! 如何打动用户?携程用户体验实践分享 【征文】Java二十周年特别策划——谈谈我与Java的那些年、这些事 Facebook的愿景以及虚拟现实的未来 iBeacons一年回顾 英特尔中国30周年之际 IDF上你需要了解的5件事 OpenCloud 2015参会者的三大特征(附列表) 友盟移动互联网趋势报告解读:垂直领域应用竞争白热化 墨腾动漫CTO吴建学:初创公司的生存之道 亿航与高德达成战略合作 LBS+引爆智能硬件软实力 《近匠》火柴手写码,输不错的验证码利器 Web、App中添加动效设计应遵循的12条原则 越狱与开源:2015移动安全峰会(MSS)纪实 开发者自白:我是如何不花一分钱收获230万应用下载量的! OpenCloud 2015报名超预期 近20位讲师会前采访提前看 硅谷公司人才招聘那些事儿——硅谷“超级面试官”董飞专访 一切为了用户体验:揭秘京东首页改版背后的故事 DirectShow中通过摄像头获取图像,如何改变分辨率 关于Win2000做服务器,Win98做客户端,在98中如何设置连接Internet的问题? 我的php是怎么回事呀? 如何访问带密码的Access数据库? 关于程序员的数组方面的问题? 救菜鸟!给个范例! 为什么我在XP下文件夹加密加不了? 在word文档中使用active控件引发的问题。急!!! 我在我的frame中的一个页面中用一个button的onClick="javascript:window.close()"怎么关闭不起作用呢? 帮帮我吧,我asp刚入门,就要做网站,感觉心里好没底...... 红色紧急求救 我在北京找工作,各位仁兄帮帮看看 如何在窗体中动态生成组件? 如何实现显示在线者的信息,如注册会员多少人,访问者多少人等等(附三问) 50分求救,哪里有下载免费的VB6中文版? 求救!!!!!!!!!高分!! 大家进来看看这个效果怎么做! 哪能找到关于网络侦听的源程序?用VC做的,谢谢! 九月份就大四了,要分方向了,大家给点意见? 如何禁用ie选项中的“显示友好的http错误信息” 接了一个小小的酒店管理系统,问一下,值多少钱?(可别说我做坏了市场:)) 程序员考试的资料在哪下载?(.pdg的文件用什么阅读?) 我下载了JDK1.4.1_03安装以后JDK目录里没有1.3的Javac文件呀? 新手的问题(asp的源代码): vector&父类子类的问题 单片机如何实现霓虹灯控制,谢谢。 ASP操作oracle数据库,是不是只能用SQL语句实现 哪里有介绍NAT(网络地址转换)原理的网站? win2000下,的计算机管理--磁盘管理--选中c盘--右键--属性--工具--查错,选中扫描并试图恢复坏扇区........... Session会无故消失!! 请大家注意FAQ的提交! ---如何在linux下编译IDL文件--- 求Rational purifyplus for Linux 的license 简单sql语句问题 VB编译好的程序为何不能在没装VB上运行? vector&父类子类的问题 有关三角矩阵乘法 如何编写ASP类? servlet调用Oracle,如何使用jdbc直接进行连接?高分相赠 我的2000 pro 总是出现超频保护 大家快来接分了!!!! 怎样让一个窗体总是在桌面的最前面,不会被其他程序的窗口挡住? 送分啦 dshow的入门级问题,请指教 那种开发工具开发效率较高 xp的问题 "处理中的数据超过允许的极限"是怎么回事? 为什么我的.net在建web工程设置断点后无法调试,加上了button后无法显示。谢谢了。 我现在大概有10万资金,可以做什么投资回报比较大呢?? 请教关于动态控件内存释放问题~(老问题新谈,高手请进)~~ SQL的一个问题!(高手请进!!!) 发个笑话,爆笑(转贴) 已知f(x)是在R上偶函数,且f(x+4)=f(x) 若当x大于等于0小于等于2时 f(x)=x 求当x大于等于398小于等于400 fx已知f(x)是在R上偶函数,且f(x+4)=f(x) 若当x大于等于0小于等于2时 f(x)=x 求当x大于等于398小于等 2.一名运动员在百米比赛中,起跑速度是7m/s,中途速度是8m/s,最后冲刺速度是12m/s,如果他的成绩是10s,则他全程的平均距离是多少? 三只外观相同的手表分别属于A,B,C三人,三人从中取一只,用列表法或树状图解答取到和取不到自己的概率放在一起的三只外观相同的手表分别属于A,B,C三人,如今三人从中任取一只,那么用列表 三峡库区的流速由10千米每时降到4千米每时,已知轮船在静水中的航行速度为30千米每时.当轮船以此速度逆水航行在520千米的库区江水的过程中,试求蓄水后航行时间缩短了多少. 一名运动员在百米比赛中,起跑速度是7m/s,中途速度是8m/s,最后冲刺速度是12m/s,如果他的成绩是10s,则他全程的平均距离是多少 望岳中作者望到啦什么?想象当时诗人望到了什么? 若两个单项式:3/4a^2b^3与-2a^m-1xb^n的和还是单项式,求代数式1/9m^2xn-6mn+n∧2的值.^=几次方. 谁能帮我找一篇题目为‘舍大而取小’作文,700字,好的还可以加分 一艘轮船航行在A处时,港口C正好在它的东北方向,如果按东北方向行驶到港口,会遇到暗礁为了避开暗礁,船只能向正东方向行驶到10千米的B处,在B处测得港口C在北偏东,求此时船离港口C的距离.. 一下应该选择哪一个?A.兴旺 B.丰富 丰盛 C.程度深 D.盛大 隆重 E.强烈 旺盛 加工2400个零件,3天就完成20%,照这样计算,剩下还需多少天?(用比例解和算术解)好的给加分 翻译《入蜀日记》(前面是八日,五鼓尽,解船,过下牢关.)帮帮忙啊!大神们帮帮忙 英语翻译奔宇为公司和产品名字.翻译一到二个单词均可.要求简洁,好记,有意义.但不可音译哦~ 加工2400个零件,3天就完成20%,照这样计算,剩下还需多少天?(用比例解) 求它的导数. 年轻气盛是什么意思啊… 加工2400个零件,3天就完成了20%,照这样计算,剩下的还需多少天完成? 湘江遇盗日记文言文翻译 年轻气盛不可连连,血气方刚不可天天.. 加工2400个零件,3天就完成了20%,照这样计算,剩下的还需多少天完成?关系式我只要文字的关系式,急, 《朱元思书》这篇课文还要背诵.请问写得是哪里呀,翻译过来貌似这地方还不错的样子? 淡黑的起伏的连山,仿佛是踊跃的铁的兽脊似的,都远远地向船尾跑去了,但我却还以为船慢,这样写好处是? 加工2400个零件,3天完成20%.照这样计算,总共需多少天完成任务用方程 (比例) 第一个题解析里面 第二个等号没看懂,第二个等号后面那式子为什么最后还要乘以dx比dy呢? 课文:社戏.问题,淡黑的起伏的连山,仿佛是踊跃的铁的兽脊似的,都远远地向船尾跑去了,但我却还以为船慢.(山为什么说“踊跃”?) 急要,谁能看得懂这篇英文文章不要在网络上找google 翻译成中文,只找只懂英文的人来看,这篇文章是说什么的,急用.我要全部的文字翻译Middle-age consumers are getting lost in a no-man's land of advertising a 请写出相关步骤 漆黑的起伏的连山仿佛是踊跃的铁的兽脊似的都远远的向船尾跑去了,但我还以为船满山为什么说踊跃 只要改错和翻译句子- - 一艘龙船16千米每小时的速度离开港口与东北方向航行,另一艘轮船同时,离开港口以三十千米每小时的速度向东南方向航行他们离开港口办小时后相距_千米. 淡黑的起伏的连山,仿佛是踊跃的铁的兽脊似的,都远远地向船尾跑去了,但我却还以为船慢的写作方法还有修辞手法修辞手法表现了什么( )写作方法表现了什么( ) 3年前小皓比小波年龄大4岁,5年后两人年龄和是30岁.问小皓和小波今年几岁? 概率 ,第二小题为什么这么写某生产线生产的产品等级为随机变量X,其分布列:X123P0.5ab设E(X)=1.7.(I)求a、b的值;(II)已知出售一件1级,2级,3级该产品的利润依次为306元,100元,0元.在该 小波中CWT coef是什么 3年前小浩比大波年龄大4岁,5年后两人年龄和是30岁.问两人今年各多少岁 风从水上走过,留下粼粼波纹水从秋走过留下( ) 互相垂直的两条直线形成的角是( )角 △ABC内接于圆O,AD是圆O的直径,AD⊥BC,垂足为F,连接BD,CD,求证:BD=CD 第二小问如何证明?第十题的 心电图上Q\R\S三个小波是什么意思? 我想写一篇“论舍与得”的作文,请给我发一篇可以吗? 请问第14题的第二小问怎么证明? 《社戏》中,“淡黑的起伏的连山,仿佛是踊跃的铁的兽脊似的,都远远地向船尾跑去了” 向下看问题补充谢谢《社戏》中,“淡黑的起伏的连山,仿佛是踊跃的铁的兽脊似的,都远远地向船尾跑去 社戏中为什么连山,向船尾跑去(物理解释)鲁迅先生在他的小说《社戏》中有一段描述:“淡黑的起伏的连山,仿佛是踊跃的铁的兽脊似的,都远远地向船尾跑去了.”请从物理学的角度对“连 hill改一个字母变成另一个单词带中文还有chair,and,put,day,side,sing,all 如图,平形四边形ABCD中,点M在DA的延长线上,点N在DC的延长线上MN//AC,MN分别交边AB,BC于P,QMQ于PN的大小关系是什么,过程 初三作文,舍不得,怎么写初三了,其实初中过得挺后悔的,班上,男生里,就没一个好一点的,随便谁身上,都有让我不舒服的缺点.要么,就是思想差的太大了,没什么共同语言.想想,交的朋友,没一个 已知集合A={1,2,根号m},B={2,m},B⊆A且B≠A,则实数m等于?A、0 B、1 C、0或1 D、0或2 日字旁过来一个泰 读什么字 写妈妈舍不得给自己花钱,却给我花钱的作文最好今天比如:妈妈逛商店,舍不得买衣服或:妈妈想出国旅游,自己舍不得 判断下列两个变量之间是否成正比例或反比例正方形的面积S和边长a正方形的周长和边长a矩形面积一定时,长a和宽b矩形的周长一定时,长a和宽b矩形的长一定时,机型的面积S和宽b圆的周长C和半 两条直线垂直,形成的角是90°,为什么依据是什么 《社戏》用“踊跃”写连山有什么好处 预备年级奥数题1.某出租车的收费标准是:5千米之内起步费为10.8元,往后每增加1千米增收1.2元(不足1千米按1千米计算车费).现在A地到B地共支出车费24元(不记等候时间所需费用).如果从A 急要初一下英语课时训练答案急要,我在线上等网址也可以 《社戏》中正面和侧面描写船快的句子文中正面和侧面描写船快的句子 当天就要用的噢!请各位姐姐哥哥来看看.观察下列等式(式子中的"!"是一种数学运算符号)=1,=2*1,=3*2*1,=4*3*2*1,……计算:100!/98!(98!分之100!)=_________________________.求救丫! 填写孩子成长足迹,幸福的一天怎样填? 2.一名运动员在百米比赛中,起跑速度是7m/s,中途速度是8m/s,最后冲刺速度是12m/s,如果他的成绩是10s,一名运动员在百米比赛中,起跑速度是7m/s,中途速度是8m/s,最后冲刺速度是12m/s,如果他的成绩是 有浓度95%的酒精溶液10KG,再加入50%浓度的溶液多少KG,才能保证所有酒精溶液的浓度在70%以上 医生举报副县长公款旅游 开发商10万黑龙江非转基因大豆产区面积锐减 九成伊拉克发生多起暴力袭击致24人死亡美国去年吸引外国直接投资1660亿美美潜入雅虎谷歌狂盗数据以色列释放第二批巴勒斯坦囚犯陕西副县长被指公费出国游 纪委调查至澳使馆为美国搜集亚太情报\"诈弹\"威胁长沙机场疑犯被抓 频美使馆疑用这个“白盒”监听军事专家:极易致误判误撞和擦枪走火冷战游戏 蓦然重现空气污染致癌 波兰向碳排放开刀斯诺登谋得俄网站工作禁化武组织:叙利亚已按规定销毁化学武美国辱华电视主持人称不会辞职 未答应“免费”医疗让俄罗斯进退两难 仅约3上海自贸区改革红利初显 打造宽进严管报告称撒哈拉以南地区明年经济增速将达学者解析温家宝首次出书谈教育:出身教山东菏泽回应城建局集体打牌:6名员工你真会逛超市吗?小私教你几招乐视通过酷派牵手360 贾跃亭周鸿祎理想国2015年1月重点书Uber融资条款首次披露: 很早就亏年关电信诈骗多:“假银行”电话要留心香水新品:Calvin Klein 【宝姐Style】我爱红碧玺,谁都挡神魔大陆手游装备怎么兑换 装备兑换分这个世界够沉闷了,他们让你的世界更精吹牛老爹adidas Yeezy B【扮美秘籍】6大秘籍!让你冬季性感又平民小R玩家如何逆袭 持之以恒是关键熬夜上网成植物人 最终被100元钞票1261只个股半月跌幅超三成 公募基解析 | 移动阅读:2015年的趋势监管层或将下调印花税救市【慎点!】最屌丝的星座,就是说你呢!刘涛驾限量豪车出街 大秀美腿尽显好身女人理财学着点 做范爷一样的魅力女神一闪动人心 O粉汇全国品鉴会深圳站回公告精选!南京高科减持中信证券 中
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘