我的程序中有 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;
我测试了它并且它正在工作,当只有 1 个媒体播放器时......我该怎么办?谢谢