View Single Post
  #50  
Old 12-03-2018, 13:11
KaktoR's Avatar
KaktoR KaktoR is offline
Lame User
 
Join Date: Jan 2012
Location: From outer space
Posts: 4,689
Thanks: 1,106
Thanked 7,336 Times in 2,838 Posts
KaktoR is on a distinguished road
You mean stop or pause?

To stop it call
BASS_Free;

To pause it create a button with a OnClick call and then something like this
Code:
procedure MusicButtonClick(Sender: TObject);
  begin
    case BASS_ChannelIsActive(SoundStream) of
      BASS_ACTIVE_PLAYING:
      begin
        if BASS_Pause then
          MusicButton.Caption := 'Sound On';
      end;
      BASS_ACTIVE_PAUSED:
      begin
        if BASS_Start then
          MusicButton.Caption := 'Sound Off';
      end;
    end;
  end;
__________________
Haters gonna hate
Reply With Quote