鼠标声音事件.txt

来自「创建异形窗体可以创建出各种各样的异形窗体」· 文本 代码 · 共 27 行

1:
在uses中加入MMsystem 函数.
2:
在implementation中增加
 var
   noHide: Boolean;
3:
在创 建 主 窗 体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 函数.
2:
在相应事件中加入:
PlaySound('Sounds\Growl.wav',0,SND_ASYNC);