[Amzi]

procedure TForm_Player.Player;

Код:

 //полоса проигрывания
    AdvTrackBar1.Min:=0; 
   AdvTrackBar1.Max:=bass_ChannelGEtLength(Channel, 0) -1;

Код Trackbar-а
Событие на mouse down

Код:

var
 p: real;
 begin
 if mode<>play then Exit;
 p:=AdvTrackBar1.Max/advTrackBar1.Width;
 AdvTrackBar1.Position:=round(x*p);
 bass_ChannelSetPosition(Channel, AdvTrackBar1.Position, 0);
 end;

Событие на Mouse move

Код:

var
 p: real;
 begin
 if mode<>play then Exit;
 if ssleft in shift then //если нажата левая кнопка мыши
 begin
 p:=AdvTrackBar1.Max/AdvTrackBar1.Width;
AdvTrackBar1.Position:=round(x*p);
 bass_ChannelSetPosition(Channel, AdvTrackBar1.Position, 0);
 end;
 end;

Событие на On Timer

Код:

AdvTrackBar1.Position:=bass_channelGetPosition(channel,0);