私のプログラムには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 つしかないときに動作しています....どうすればよいですか? ありがとうございました