用Delphi制作动态有声标签

2008-03-28 07:26:04来源: 阅读 ()

新老客户大回馈,云服务器低至5折

电脑报社出品的《硬件大师》的安装界面见过吧,当你把鼠标移到安装提示上时会发出声音,在上面按下鼠标左键也会发出声音,而Delphi3?0安装界面的安装提示虽然有动感却没有声音,能不能二者兼得?答案是肯定的,用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中运行通过。  

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用Delphi4实现风Word97格的工具栏

下一篇:用Delphi 3.0编制MP3音乐点歌台