Question

在delphi中如何实现当鼠标指针经过按钮是发出声音，本人菜鸟望大侠详细点

小弟我想写一个能让鼠标指针经过按钮时能发声的程序，就像金山快译界面上的一样，具体怎么做？代码怎么写？谢谢了！

Answer 1

uses mmsystem;

B: Boolean;
procedure TTowerForm.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin

B:= True;
sndplaysound(0,0);//关闭语音
end;

procedure TTowerForm.BtnPriorMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if B then
sndplaysound('PriData.wav',snd_async);//一边播放语音档，一边执行程式
B:= False;
end;