Перемотка
Как перемотать музыку/видео в медиаплеере?
//track - trackbar //muz - MediaPlayer 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; ... procedure TVDplayer.Timer1Timer(Sender: TObject); begin track.Position:=muz.Position; end;
