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

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

iOS 7将从这三方面影响IT界 超越Google,他企图将整个互联网塞进1台电脑 2013互联网安全大会议题先睹为快之CSA中国理事赵粮 移动建站工具(二):分秒钟DIY一个移动网站 2013上半年中国移动互联网报告,在线完整版 iOS开发者必备:九大设计类工具 已到“迟暮之年”?微软投资者提议两“救世主”外部候选 【SDCC讲师专访】Joseph G. Brown:云带来的软件销售方式变革 用户界面设计攻略:设计师需注意的九大要点 Google Glass的竞争对手来了:看YC演示日的五款新孵化项目! GPU Saturday技术沙龙:OpenCL程序员眼中的下一代APU架构 黑帽大会演讲中国第一人:从攻到防,从白帽黑客到创业者 15个步骤创立技术公司,并收获千万用户(完结) CTO容易犯的三大错误 谷歌艺术计划:互联网能否取代真实的博物馆? Hadoop技术沙龙:Hortonworks技术研发总监展望Hadoop 2.0 Marissa Mayer:雅虎月活跃用户增长了20%达8亿 移动用户3.5亿 气死偷车贼:脑电波防盗技术,让偷车贼无计可施 TIOBE 2013年9月编程语言排行榜:Transact-SQL首次进入前十 前Oracle总裁Charles Phillips:商业软件领域的“乔布斯” 留住你的用户:8款第三方移动推送服务 人气最旺:主流移动应用创建工具大合集(一) 不要强迫用户注册,请让他们先试用产品 Eve:基于Python的REST API框架 想扩展你的数据库吗?那么先了解一下I/O 白帽黑客将现场爆料Android系统及框架漏洞 9月13日:程序员节,一起来过节吧! 欲与Siri、Google Now比高低:微软开始打造个人助理Cortana 【开源专访】禅道创始人王春生:覆盖项目全周期,回归管理的本质 携程无线创业者大赛成功落幕 梁建章为头名“快展”颁20万奖金 Bug报告:小角色,大用处! j2me怎样显示从servlet传来的图片(字节数组)?? 在客户端可以通过jsp写二进制文件嘛? winrunner的自动运行程序问题。 和桌面通信的问题!!!!!!! 谁Dephi方面的入门电子书籍?谢谢了 【道歉】请hellosun和flyever进来领分! ???上传大文件??? 请问如何控制asp.net客户端(IE)的用户数 关于触发器的问题! 谁知道如何获得MSHFLexGrid被选中的记录(前提:按住shift键选择了多条记录)? 求助,有关Oracle控制文件的警告信息 查询记录数多与某数值的记录。 对了,问个弱问题 想实现一个功能 当选择表单select0里边的“产品分类“,然后自动探出另外一个select1表单,选择select1表单里边的分类信息搜索,选择表单 MSSQL server 的 Function 是个烂东西 数据录入问题 InstallShield的两个基本问题。 敬请指点谜经!万分感谢! 动态配置ODBC连接问题 做个调查,你买彩票吗? 我怎么打不开本版精华区的帖子了 急!如何在datagrid控件运行后显示的表格中加一列,用来表明现在的状态 关于窗口分割 CSDN的这个BBS,回复时老是提示超时已过期,来看看是不是这个原因 关于打在帧结构的问题 可不可以用vb在PE的文件上加上一段自己的代码呢?(不用汇编,用纯vb) 关于utf-8编码 如何在数据窗口中任意某行某列的字体颜色? "保存文件老提示文件被占用",是不是编译器的bug? 在网页中如何发短信? MapXtreme中运行/HelloWorld/mappage.asp报的错误 outlook...foxmail.... 哪位大侠提供有效的 msdn2001.10三CD的下载地址,论坛上搜索到的都是过期的连接,多谢了!!! 水晶报表问题 java调用系统功能? 怎样用asp打开一个复杂的excel表格(内有很多列合并和行合并、工作簿已重命名)? 有牛人能帮忙翻译一下么,我看的头都晕了,好文章呀!.(转载) 请问大家一个WinCE的下载引导问题 关于数据库的 大家有没有这种感觉? 想买本计算机专业书 却发现她很贵 不买 却又急需 !!!矛盾!痛苦! 如何恢复98休眠功能? 局域网中的一台机子中的文件夹是共享的,在外网怎么访问?? sql语句中日期格式怎么写,很简单 急,域名查询,网络实名的功能怎么做??? 關於mail發送的,出現如下錯誤:jsp.error.badaction,怎樣解決? 用过 True DBGrid Pro 7.0 兄弟请帮帮忙!在线等待! 有请老牛,ginger,cxx1997,和其他聪明的人进来,我有重要事情宣布! 小弟用Jbuilder 做的JSP 程序,,我放在Apache哪个目录里面呀 importfile使用问题! 注册表 ADO中的Edit()怎么写? 怎么样快速有效的记住英语单词和英语语法? “我们永远不能忘记”英语翻译↑↑如上 为什么记一个人容易,忘一个人难 用英语翻译 苟无民 何以有君什么意思 《苟无民,何以有君》的译文是什么 原文:齐王使使者问赵威后.书未发,威后问使者曰:“岁亦无恙耶?民亦无恙耶?王亦无恙耶?”使者不说,曰:“臣奉使①使②威后,今不问王,而先问岁与民, f(x)=2+log以3为底x为真数,x属于[1,9]求y=[f(x)]平方+f(x平方)的最大值及y取最大值时x的值 英语翻译 “苟无民,何以有君”中“以”是什么意思? 判断题:一个数增加50%再减去50%,结果不变.说明原因 从1里面减去1/9,减去9次得0 ,判断题 判断题 自然数之间都相差1. 失踪小驴友尸体终于找到 距发现头骨处乐清“袭胸男”深夜骑车专找年轻女性下有困难“拨拨就灵” 金华启动8890每年10月也是雷电高发期 西湖五处码杭州近期昼夜温差超10℃ 早晚记得添美媒:监听活动曝光迫使美停止炒作“中揭秘中国农村殡葬腐败:村民为\"入土湖北恩施酒风盛行百姓叫苦:母猪下崽也调查称过半日本人反对秘密保护法案 忧杭州“错时停车”推行5年难度越来越大浙江企业注册资本首付两成就能给公司冠四川启动乳腺癌百万援助公益计划(图)山西:电力首次取代煤炭成利润最大行业福州:房企优惠不断 回笼资金忙四川广元市委原常委、常务副市长苏利明内蒙古财政:打造新型项目审批服务体系关于发布《中国建材报》社等19家中央越南弃办亚运背后:退出是耻辱,但比硬巴西总统驳斥经济危机言论飞机拒载婴儿,保护还是伤害(碰撞)华辰春拍影像:鲁迅影集组图:天使奥黛丽赫本海量罕见照私藏曝罪人录吸血鬼之半魔半神没有老婆的日子我的大小坏老公王爷你别逼我极品霸道爱奇幻网游之道行天下官场红粉:女组织部长做人法则现代魔导士总裁强制爱巨峰风景区旅游岗什卡雪峰旅游微风广场旅游灵岩旅游瑞金红井旅游鸣翠湖旅游国家奥林匹克体育中心旅游大同鼓楼旅游大同市博物馆旅游梁思成纪念馆旅游边墙五堡旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘