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

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

史玉柱的创业经验谈 3G门户和GO桌面:海外推广的生意经 系统级编程语言性能大PK D语言成首选 解读Facebook第二季度财报 移动业务风生水起 如何避免失败,像Google一样玩转大数据 首届游戏运营技术论坛隆重开幕,共论大数据时代的游戏运营之道 OpenStack Swift遇到了Erasure Code 微软Win7 IE11开发者预览版发布 开始改进开发工具讨好开发者 个性化推荐服务商百分点宣布B轮融资1000万美金 全球著名互联网企业背后的开源力量 基础设施对决Facebook vs. Google:差距绝不是一点点 Amazon Q2财报同比转亏,但AWS反其道而行:高歌猛进! 开拓海外市场的两年:海外上线小技巧 SDCC 2013首批讲师名单出炉 一线工程师唱主角 [开源推荐] 跨平台的.NET运行环境 Mono 3.2发布 Heroku发布API平台Beta版 采用OAuth2.0安全授权 大数据时代:移动数据能为我们带来什么? iOS开发经验谈:如何提高应用开发效率? 贝索斯:你否定亚马逊的现在 我决定亚马逊的未来 谷歌新产品Chromecast:一夜之间价格从35美元飙至100美元 移动周报:苹果5周年限免神作,BADLAND开发者访谈 开源平台Cloud Foundry获IBM和百度支持,步入高速发展的“黄金期” GDK仍未发布 谷歌鼓励Glass开发者可提前用Android SDK开发 Adobe发布PhoneGap 3.0 支持命令行工具 初级vs.高级开发者 哪个性价比更高? 一周观察:Cloud Foundry生态圈渐成型 数据分析中的10个注意点,让你更了解用户体验、行为及需求 压不垮就奋行!Dropbox Datastore API给初创NimbusBase带来的启示 史上14大最具创新意义的科技发明 亚马逊应用商店:给应用开发者一个国际舞台 白帽黑客英年早逝:R.I.P,Barnaby Jack 关于isdn在win2000下共享的问题 各位水友,有力的出力,没力的看看,拜托 请从位高手帮小弟解决一个棘手的问题……………………多谢!!!!!!! ALLTEC(荔枝)兄弟,兄弟我接帖太快 :( 請這邊來. ★★★ 救命啊! VC 用ODBC访问 Access 数据库的问题 guo->你在www.linuxforum.net中叫什么?有个guoemail是你吗? 软件发布:市场摊位租赁管理系统Ver1.0 软件发布:量和单位转换软件(免费版) 软件发布:五笔快打 在listview中的各个记录listitem中,有没有双击记录的事件 软件发布:伏羲服装鞋业购销存管理系统 软件发布:进销存商务管理pcft-jxc 征集各地童谣.唤醒儿时记忆! 今天我请客! 有关vb调用excel的问题! 有没有关于BDE的单独的分发程序? VB中报表预览打印能不能实现象EXCEL中一样的“按比例缩放”?如何实现? 单机版流量统计 关于Delphi6的安装问题 动态计算公式怎么实现?? 常用的英文字体是什么? 在通信过程中怎样做到防监听、防篡改? 各位大虾现欲用java开发一套网上投票表决系统 应该看什么书?用什么开发工具?(一定给分!) 关于winsock的问题,急急 怎样使用VB6中TREEVIEW控件? 我真的要疯了! 这里有很多Delphi6的控件! 如何在ASP中传递多个参数?displaymsg.asp?page=1在后面我还想加另外一个参数 有没有喜欢画漫画的? 如何得到ActiveX控件的窗口句柄 请问mif文件格式以及、读写方法?高分求解 sco unix的root口令忘了,谢谢. 在PowerBuilder中使用Microsoft Web浏览器控件 ,这个控件在ole中怎么没有啊? 急盼有人答复!!!!!! 急!急!编译exe时出现:link errors提示 具体提示:create of executable file failed? 小笨笨一问 年年岁岁花相似,岁岁年年人不同 VC++初学者的几个大烦恼!(苦呀,谁来拯救我这个VC小兵?) 请教在DELPHI中调用API发送EMAIL的问题!!!!! 有谁知道没有封闭25端口的美国ISP的地址信息??? 水园的过去现在未来 -- 座谈一下 哭笑沉默怒骂攻击噌分拉关系白脸黑脸等等都欢迎 高分求购速达软件单据编辑的DBGrid组件或设计思想! 发表一下意见,做报表用那个控件好 谁有对话框实现的计算器的源程序? 帮小弟看一下这段程序,不好意思,只有10分了 Delphi多线程有用吗? 初学JAVA,还有一些问题烦劳各位大侠指点? 请教一个c语言库函数问题? 动不动就谈"爱国"的人请进 如何改变开机声音??? 菜鸟有一问题请教 2+2等于几? 3小时25分等于多少小时,怎么来的 大肠杆菌感受态细胞的制备与转化实验:在转化实验中,涂平板前需要在37度下振荡培养30-60min大肠杆菌感受态细胞的制备与转化实验:在转化实验中,涂平板前需要在37度下振荡培养30-60min,请 2+2等于几啊 8π-20 等于多少?怎么算, 大肠杆菌DH52a感受态细胞 25下午1点,25小时后是几号的几点? 用分数表示:25分钟=( )小时,2500克=( )千克 提取DNA后为什么要跑胶 第25小时怎么样 25分钟=( )小时 最简分数 提取DNA时为什么要用新鲜血液 第25小时电影求求求, 2.15小时=?小时(用分数表示) 3小时15分=?小时 质粒DNA提取中为什么要用冰预冷溶液I和溶液Ⅲ? 第25小时的结局他爸爸要载他去哪里?是帮他越狱?还是送进监狱? 45分钟=多少小时 用分数表示 提取叶绿体是为什么要在冰浴中进行 如果一天不是24小时 是25小时,一小时是70分钟 你会怎么办? 正切1度29分是多少 农杆菌感受态细胞制备失败和质粒没有转进去的可能原因 黄金一盎司等于多少克 正切根3是45度,那么正切根2是多少度呢 大肠杆菌感受态制备为什么要冰上操作,0-4℃操作.还有,为什么要采用对数生长期的菌?不要只给一个简简单单的回答说转化率高,要具体、详细点的,最好有原理, 一盎司等于多少克黄金? 正切45是多少 感受态的制备我制备的感受态加DMSO放-80最近转化率总是下降不知是什么原因, 一盎司黄金等于多少克 15.8°化成度 分 秒 BJ5183细胞感受态的制备我之前用拿来的BJ5183菌液划板挑单菌落,然后扩大培养保存菌种.最近用该菌种用氯化钙法制备感受态细胞然后用pShuttel-CMV转染(连上了目的基因),但是Kna板子上培养了 1°等于几分 一盎司黄金等于多少克黄金? 8/15-1/4= 一元等于几分呢? 黄金1斤等于多少两 0.8,里面有( )1/15 1块等于几分几毫几里 1港两黄金等于多少克 正切函数的一个问题可是从函数图象上来看,在不一样的区间有不一样的对称中心啊.. 1+1等于几多 1盎司黄金等于多少克 什么是正切函数 如果1+2=2+1 那么我爱你等于你爱我么 怎样理解为公司节约一分钱就等于为公司挣得一分钱? 一道正切函数题求函数Y=tan^2x+tanx+1(x属于R,x不等于kpai+pai/2)的值域. 如果1+1=2,那么你爱我是不是等于我爱你? 一分钱等于多少百元 (1)正切函数在整个定义域内是增函数吗?理由?(2)正切函数会不会在某一区间内是减函数?理由? 如果1+2=2+1,那么我爱你就等于你爱我吗?付出就会有回报吗? 请问多少“厘”等于一分钱? 关于正切函数正切函数在其定义域内是增函数,这句话对吗? 1+2=2+1那么是不是我爱你,也等于你爱我 中国一厘钱等于多少元?多少分? 大肠杆菌感受态细胞制备试验中为什么转化后要在37℃摇床上温育45min 如果1+2=2+1 那么我爱你是不是等于你爱我 一分等于几时 如何制备大肠杆菌感受态细胞 2+2到底等于几呢 14小时35分等于几小时 大肠杆菌制备感受态细胞和重组子转化实验中,没有实验结果大肠杆菌制备感受态细胞和重组子转化实验中,将重组子放在含抗生素的培养皿中培养,也就是用蓝白班的方法,但是培养皿上什么颜
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn