Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

создание Mediaplayera

Страницы: 1
создание Mediaplayera
#1
22.03.2010 15:59:43
Пытаюсь писать медиа проигрыватель столкнулся с проблемой связанной с TrackBar.
Не работает перемотка.
Код
procedure TForm4.TrackBar1Change(Sender: TObject);
begin
trackbar1.Position:=mediaplayer1.Position;
if image1.Tag=1 then mediaplayer1.play;
end;

вот такой код, помогите кто знает как?
пока ты не доволен жизнью - она проходит...
 
 
#2
22.03.2010 16:08:22
Так, в принципе правильно, но есть одна ошибочка из-за которой не работает:
Код
procedure TForm4.TrackBar1Change(Sender: TObject); 
begin 
mediaplayer1.Position:=trackbar1.Position; 
if image1.Tag=1 then mediaplayer1.play; 
end;

вот так будет правильно.
свободный страннык
 
 
#3
22.03.2010 16:23:57
О, идею понял, код исправил, вроде теперь мотает, только почему-то начало видео притормаживать, из-за чего бы это?
пока ты не доволен жизнью - она проходит...
 
 
#4
22.03.2010 16:41:15
a9d, а вообще в принципе было бы корректнее по-моему, сделать не перетаскивание ползунка а перемещение при нажатии на определённый участок трека, возможно это бы и помогло разрешить проблему с торможением видео, в общем, надо пробовать.
свободный страннык
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)