|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.02.2009, 12:35 | #1 |
Пользователь
Регистрация: 26.12.2008
Сообщений: 24
|
премотка с помощью ProgressBar
вот не получается сделать перемотку. вот делаю так
код: procedure TForm1.Timer2Timer(Sender: TObject); begin if mediaplayer1.FileName<>'' then begin ProgressBar1.Position:=MediaPlayer1 .Position; ProgressBar1.Max:=MediaPlayer1.Leng th; end; end; procedure TForm1.ProgressBar1MouseDown(Sender : TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin If ProgressBar1.Position<>mediaplayer1 .Position then begin MediaPlayer1.Position:=ProgressBar1 .Position; MediaPlayer1.Play; end; end; ПОСМОТРИТЕ МОЖЕТ ГДЕ ОШИБКА (ИЛИ ВСЕ НЕПРАВИЛЬНО). С Trackbar и scrollbar умею делать но они портят звук "зайканием". |
07.02.2009, 12:45 | #2 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Поищите по форуму, я точно помню что приводился пример с исходником, как с помощью мыши можно управлять заполнением ProgressBar'а. А исходя из того исходника можно легко сделать перемотку.
Всегда рад помочь!
|
07.02.2009, 14:16 | #3 |
Пользователь
Регистрация: 26.12.2008
Сообщений: 24
|
то что нашел не помогло или выдавало большую ошибку.
|
07.02.2009, 17:09 | #5 |
Пользователь
Регистрация: 24.12.2008
Сообщений: 19
|
А ежели в самом начале ProgressBarMouseDown, таймер отключать, а в маус ап включать уже после MediaPlayer.Position:=ProgressBar.P osition?
Пока жирафы думают, кролики делают!
|
08.02.2009, 02:50 | #7 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
Код:
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
|
08.02.2009, 12:50 | #8 |
Пользователь
Регистрация: 26.12.2008
Сообщений: 24
|
Stanislav. Делал и такое, он не мотает, а при нежатии просто начинает воспроизведение заново.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ProgressBar | Simon..14 | Общие вопросы C/C++ | 10 | 24.01.2009 14:56 |
ProgressBar | Andrei Isaev | Общие вопросы Delphi | 1 | 20.11.2008 14:59 |
ProgressBar | Terran | Общие вопросы Delphi | 5 | 09.01.2008 21:18 |
ProgressBar | pentiumForever | Компоненты Delphi | 2 | 07.09.2007 13:33 |