Как реализовать перемещение ползунка при проигрывании mp3 файла компонент mediaplayer, в нужную позицию?

[strannik]

Народ - помогите пожалуйста разобратся с трекбаром - пишу медиаплеер - при проигрывании mp3 файла трекбар плавно передвигается (на таймер ложу trackbar1.position:=mediaplayer1.po sition)- вопрос - как реализовать перемещение ползунка (например в середину песни) - причем ползунок должен оставаться в перемещаемом положении и продолжать перемещение к концу. Может где-нибудь почитать про это можно.
Заранее спасибо.

[Сильванович Михаил]

Если считать, что цена деления и того, и другого одинаковы, то
при попытке перемещения ползунка делать можно так:

mediaplayer1.position:=trackbar1.po sition;

[VDLab]

Ни в коем случае! Иначе плеер или зависнет или подвесит систему. Я делал так:

 
 procedure TVDplayer.TrackChange(Sender: TObject);
begin
 if track.Position > muz.Position+1000 then
 begin
  muz.Position:=track.Position;
  muz.Play;
  bplay.Caption:='pause';
  bstop.Enabled:=true;
 end
 else
 if track.Position < muz.Position-1000 then
 begin
  muz.Position:=track.Position;
  muz.Play;
  bplay.Caption:='pause';
  bstop.Enabled:=true;
 end;
end;

интервал таймера-500мс

 
procedure TVDplayer.Timer1Timer(Sender: TObject);
begin
 track.Position:=muz.Position; 
...

кому интересно, есть недоделанный исходник(используется компонент TBassPlayer)

[strannik]

Спасибо всем ответившим! Помогло - разобрался!

[Toxa]

Сообщение от strannik

Спасибо всем ответившим! Помогло - разобрался!

можеш написать как ты это сделал? или выложить исходники? просто я столкнулся с этой проблемой и не могу решить

[strannik]

Сообщение от Toxa

можеш написать как ты это сделал? или выложить исходники? просто я столкнулся с этой проблемой и не могу решить

По аналогии с кодом который предложил VDLab.
Посмотри:

procedure TForm1.Trackbar1Change(Sender: TObject);
begin
if trackbar1.position > mediaplayer1.position+1000 then
begin
mediaplayer1.position:=trackbar1.po sition;
mediaplayer1.Play;
...
end
else
if trackbar1.position < mediaplayer1.position-1000 then
begin
mediaplayer1.Position:=trackbar1.po sition;
mediaplayer1.Play;
...
end;
end;

Да и еще:

procedure TForm1.Timer1Timer(Sender: TObject);
...
trackbar1.position:=mediaplayer1.po sition;
...
end;

На таймер я ложил интервал в 100мс.