我的程序中有2个媒体播放器。第一个,播放音乐。我使用mediaplayer2添加声音效果,例如当你在按钮上移动光标时:
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var mouseup:string;
begin
mouseup:=extractfilepath(paramstr(0))+'Sound Effects\Mouseupbutton.mp3';
mediaplayer2.FileName:=mouseup;
mediaplayer2.Open;
mediaplayer2.Start;
我测试了它并且它正在工作,只有一个媒体播放器....我该怎么办?谢谢