премотка с помощью ProgressBar

[Mazaxaka]

вот не получается сделать перемотку. вот делаю так
код:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if mediaplayer1.FileName<>'' then
begin
ProgressBar1.Position:=MediaPlayer1 .Position;
ProgressBar1.Max:=MediaPlayer1.Leng th;
end;
end;

procedure TForm1.ProgressBar1MouseDown(Sender : TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
If ProgressBar1.Position<>mediaplayer1 .Position then
begin
MediaPlayer1.Position:=ProgressBar1 .Position;
MediaPlayer1.Play;
end;
end;
ПОСМОТРИТЕ МОЖЕТ ГДЕ ОШИБКА (ИЛИ ВСЕ НЕПРАВИЛЬНО). С Trackbar и scrollbar умею делать но они портят звук "зайканием".

[Terran]

Поищите по форуму, я точно помню что приводился пример с исходником, как с помощью мыши можно управлять заполнением ProgressBar'а. А исходя из того исходника можно легко сделать перемотку.

[Mazaxaka]

то что нашел не помогло или выдавало большую ошибку.

[KORN]

с помощью прогрессбара нельзя перематыва, используй Slider или другие сторонние компоненты, Slider это дополнение к библиотеке Tbass

[Котовский]

А ежели в самом начале ProgressBarMouseDown, таймер отключать, а в маус ап включать уже после MediaPlayer.Position:=ProgressBar.P osition?

[Viteef]

Здесь перемотка реализована прогрессбаром

[Stanislav]

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

кривовато помойму но работает...

[Mazaxaka]

Stanislav. Делал и такое, он не мотает, а при нежатии просто начинает воспроизведение заново.