Приостановить воспроизведение звука - PascalABC.NET

Формулировка задачи:

делаю простенький плеер с кнопками (одна кнопка - одна песня)
procedure music;
begin
 sound:= new system.Media.SoundPlayer;
  sound.SoundLocation:='sound.wav';
  sound.Play;
end;
при нажатии кнопки играет песня Как мне сделать, чтобы при повторном нажатии кнопки песня перестала играть

Код к задаче: «Приостановить воспроизведение звука - PascalABC.NET»

textual
var
  IsPlayBack:boolean=false;
...
 // onKeypressed... 
  if IsPlayBack then begin
     IsPlayBack:=false;
     sound.stop;
  end else begin
     IsPlayBack:=true;
     sound.play;
   end;

12   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ