как связать TrackBar с MediaPlayer, так чтобы можно было мотать

← →
GIL © (2002-08-03 04:58) [0]

как связать TrackBar с MediaPlayer, так чтобы можно было мотать как в WinAmp"е и любом другом нормальном плейере

← →
un_known (2002-08-03 10:47) [1]

TrackBarOnChange

MediaPlayer.Position=TrackBar.Position

- и мотай сколько душе угодно

← →
MJH © (2002-08-03 11:41) [2]

RTFM

← →
GIL © (2002-08-04 04:25) [3]

Что значит последнее?????

← →
MJH © (2002-08-04 06:12) [4]

Read The Fucking Manual
т.е. читай мануал, то бишь хелпы

← →
GIL © (2002-08-05 05:28) [5]

К un_known: так надо чтобы при проигрывании он еще и ползал WinAmp видел?? Играет и ползет, мотаешь - не ползет!! В TrackBar"е не получается, ну нету там событий OnMouseDown и OnMouseUp!!!11

← →
MJH © (2002-08-05 07:01) [6]

есть скроллбар...у него есть ОнСкрол, и варианты состояний
есть RXТрекБар, точнее его видоизменение от Eldos...
поищи в конце концов компоненту....или просто напросто введи какую-нить разрешающе-запрещающую булевую переменную....
т.е. обновляем трекбар только тогда когда можно, а когда нельзя перематываем ручками....

Что за соплежуйство?
MediaPlayer.Position:=TrackBar.Position - перемещение ручками,
TrackBar.Position:=MediaPlayer.Position - соответственно сам бегает при проигрывании.
Внимательно смотри форум -
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1024486655&n=7

← →
gusd (2002-08-08 17:42) [8]

А каким образом при воспроизведении ползунок будет обновляться?
Timerом чтоли? И ещё -> если ползунок каким то образом двигается при воспроизведении(допустим Timerом) TrackBar1.Position:=MediaPlayer1.TrackPosition; то срабатывает событие Trackbara onchange
MediaPlayer1.TrackPosition:=TrackBar1.Position;

procedure TForm1.Timer1Timer(Sender: TObject); begin TrackBar1.Position:=MediaPlayer1.Position; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin MediaPlayer1.Position:=TrackBar1.Position; end;
У меня все работает...

как связать TrackBar с MediaPlayer, так чтобы можно было мотать Найти похожие ветки