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