0

我的程序中有 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 个媒体播放器时......我该怎么办?谢谢

4

0 回答 0