Mediaplayer

[anton14]

Помогите! Я пишу универсальный медиаплеер. Уже всё, почти, сделал, осталось только узнать, как правильно сделать перемотку! Заранее и настойчиво благодарен!

[mihali4]

Неужели про Rewind не слыхали???
Странно это... Для разработчика медиаплеера...

[Hollander]

Сообщение от anton14

Помогите! Я пишу универсальный медиаплеер. Уже всё, почти, сделал, осталось только узнать, как правильно сделать перемотку! Заранее и настойчиво благодарен!

Уже всё, почти - это что именно, если не секрет?

[anton14]

TrackBar1 за воспроизводимым файлом бегает, но не откликается. А так всё готово

[anton14]

Почти все исходники просмотрел, пока ничего не нашел. Мне сначала подсказали:
with MediaPlayer1 do
if FileName<>'' then
trackbar1.Position:=Round(100*Posit ion/Length);
with MediaPlayer1 do
if filename<> '' then
mediaplayer1.Position:=trackbar1.Po sition;
не работает!

[szviv]

Скачай компонент http://letitbit.net/download/6c58498...ckBar.pas.html и в Events > onMouseUp пропиши
mediaplayer1.Position:=Ptrackbar1.P osition;
mediaplayer1.play;

[DeDoK]

Кнопка вперед
procedure Button1Click(Sender:TObject);
begin
MediaPlayer1.Position:=MediaPlayer1 .Position + 100;
MediaPlayer1.Play;
end;
Кнопка назад
procedure Button2Click(Sender:TObject);
begin
MediaPlayer1.Position:=MediaPlayer1 .Position - 100;
MediaPlayer1.Play;
end;
Я писал так и все работало

[DeDoK]

а вот как сделать так чтобы был повтор трека?

[Romeo_max]

мне в мз3 проигрыватель надо кнопку замутить не стандартных форм, ну типа по рисунку чтоли. Помогите мне на курсовую!!!

[Лубышев]

Romeo_max, нарисуй просто! если так подумать, то чуть чуть кода и из картинки получим кнопку.
Конечно можно пользоваться и сторонними компонентами, но будет кульнее если сам нарисуешь!