|
#1
|
||||
|
||||
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 секунды!Дайте пожалуста хороший код! |