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