Тема: TrackBar - HELP!!
Показать сообщение отдельно
  #1  
Старый 07.08.2006, 12:50
Аватар для Artem28
Artem28 Artem28 вне форума
Прохожий
 
Регистрация: 07.08.2006
Сообщения: 32
Репутация: 10
Вопрос TrackBar - HELP!!

У меня следующая проблема.В моем плеере (TMediaPlayer) я использую перемотчик с помощью Trackbar.
Вот мой код:

procedure TMPGrand.TrackBar2Change(Sender: TObject);
begin
MediaPlayer1.Position := TrackBar2.Position;
MediaPlayer1.Play;
end;
/////////////////////////////////////////////////
procedure TMPGrand.Timer2Timer(Sender: TObject);
begin
Trackbar2.Position:=MediaPlayer1.Position;
end;

Всё отлично ходит и перематывает но...Через каждую секунду медиаплеер тащит за собой TrackBar. НО при этом происходит заикание!Пробовал изминить значение Timer.Interval на 3000. А ТОЛКУ!Теперь заикается через 3 секунды!Дайте пожалуста хороший код!
Ответить с цитированием