| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как связать TrackBar ;с MediaPlayer, так чтобы можно было мотать [D5, Win95/98]
GIL © (2002-08-03 04:58:00)как связать TrackBar с MediaPlayer, так чтобы можно было мотать как в WinAmp"е и любом другом нормальном плейере
SI-riuss (2002-08-10 11:11:00) [1]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
TrackBar1.Position:=MediaPlayer1.Position;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
MediaPlayer1.Position:=TrackBar1.Position;
end;
У меня все работает...
gusd (2002-08-08 17:42:00) [2]А каким образом при воспроизведении ползунок будет обновляться?
Timerом чтоли? И ещё -> если ползунок каким то образом двигается при воспроизведении(допустим Timerом) TrackBar1.Position:=MediaPlayer1.TrackPosition; то срабатывает событие Trackbara onchange
MediaPlayer1.TrackPosition:=TrackBar1.Position;
SI-riuss (2002-08-05 14:34:00) [3]Что за соплежуйство?
MediaPlayer.Position:=TrackBar.Position- перемещение ручками,
TrackBar.Position:=MediaPlayer.Position- соответственно сам бегает при проигрывании.
Внимательно смотри форум -
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1024486655&n=7
MJH (2002-08-05 07:01:00) [4]есть скроллбар...у него есть ОнСкрол, и варианты состояний
есть RXТрекБар, точнее его видоизменение от Eldos...
поищи в конце концов компоненту....или просто напросто введи какую-нить разрешающе-запрещающую булевую переменную....
т.е. обновляем трекбар только тогда когда можно, а когда нельзя перематываем ручками....
GIL (2002-08-05 05:28:00) [5]К un_known: так надо чтобы при проигрывании он еще и ползал WinAmp видел?? Играет и ползет, мотаешь - не ползет!! В TrackBar"е не получается, ну нету там событий OnMouseDown и OnMouseUp!!!11
MJH (2002-08-04 06:12:00) [6]Read The Fucking Manual
т.е. читай мануал, то бишь хелпы
GIL (2002-08-04 04:25:00) [7]Что значит последнее?????
MJH (2002-08-03 11:41:00) [8]RTFM
un_known (2002-08-03 10:47:00) [9]TrackBarOnChange
MediaPlayer.Position=TrackBar.Position
- и мотай сколько душе угодно
| |
