Как перемотать mp3 файл в mediaplayer и bassplayer?

[blackstersl]

Привет. Есть очень глупый вопрос, но никак не могу найти ответ:
1. как сделать перемотку файла в mediaplayer для progressbar.
2. Как сделать перемотку в bassplayer.
Спасибо.

[MalCer]

1. как сделать перемотку файла в mediaplayer для progressbar

Так:

procedure TForm1.ProgressBar1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if mpcanplay in Mediaplayer1.Capabilities then
  begin
  Mediaplayer1.Position:=trunc(x * ratio);
  Mediaplayer1.Play;
  end;
end;

[DeDoK]

var
  MAinForm: TMAinForm;
  Channel : DWORD;
begin
ProgressBar1.Max:=BASS_StreamGetLength(Channel);
Bass_GetPosition(Channel):=ProgressBAr1.Position;
Bass.Play;

что то типа этого. за вторую строчку не уверен точно

[blackstersl]

Спасибо, разобрался -)