用Delphi制作動態有聲標簽

電腦報社出品的《硬件大師》的安裝界面見過吧，當你把鼠標移到安裝提示上時會發出聲音，在上面按下鼠標左鍵也會發出聲音，而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中運行通過。