MediaPlayer перемотка с TrackBar

[Kaifun]

Создал плеер.. во время просмотра видео всё нормально но mp3 слушать не возможно трески и подвисания... что можно сделать?

MP=MediaPlayer1
TFMaibn=Tform




procedure TFMaibn.TrackBar3Change(Sender: TObject);

begin
If TrackBar3.Position<>MP.Position then
MP.Position:=TrackBar3.Position;
MP.Play;

end;

procedure TFMaibn.Timer1Timer(Sender: TObject);
var e : tnotifyevent;
begin
if MP.FileName<>'' then
begin
TrackBar3.Max:=MP.Length;
TrackBar3.Position:=MP.Position;
end;

end;

[BOBAH13]

Не понятно, у вас чтот не выходит с таскбаром или с проигрыванием ? Если с проигрыванием то весь корень зла в TMediaPlayer. Используйтеся DirectShow. Описывался DirectShow частично и сдесь и в сети - интернет.

[Kaifun]

=) Всё разобрался
надо было добавить if ABS(MP.Position - TrackBar3.Position) >= 1000 then



=

procedure TFMaibn.TrackBar3Change(Sender: TObject);
begin
if ABS(MP.Position - TrackBar3.Position) >= 1000 then
begin
If TrackBar3.Position<>MP.Position then
MP.Position:=TrackBar3.Position;
MP.Play;


end;
end ;