?? 鼠標(biāo)聲音事件.txt
字號:
1:
在uses中加入MMsystem 函數(shù).
2:
在implementation中增加
var
noHide: Boolean;
3:
在創(chuàng) 建 主 窗 體From1 的OnCreate 事 件 處 理 程 序,以 初 始 化noHide 變 量:
noHide:=True
4:
將Label1的OnMouseMove 事 件 處 理 程 序 寫為(begin 與end 之 間 的 語 句):
if noHide then
begin
PlaySound('Sounds\Growl.wav',0,SND_ASYNC);
noHide:=False;
end;
5:在 主 窗 體From1 的OnMouseMove 事 件 處 理 程 序,以 初 始 化noHide 變 量:
noHide:=True;
這個過程可以改動:
1:
在uses中加入MMsystem 函數(shù).
2:
在相應(yīng)事件中加入:
PlaySound('Sounds\Growl.wav',0,SND_ASYNC);
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -