[FreeAccess]

Всем доброго времени суток.
Помогите пожалуйста с такими вопросами.
1) В медиаплеере при проигрывании видео не работает кнопка стоп, т.е. она не сбрасывает на начало как должна была , а работает просто как пауза. мне нужно чтобы сбрасывала.
2) А также как совместить работу медиаплеера с track bar. что бы можно было видео прокручивать как и на всех видеоплеерах.

[lmikle]

1.

Код:

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
  If Button = btStop Then MediaPlayer1.Position := 0;
end;

Годится?

2.

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  MediaPlayer1.Position := TrackBar1.Position;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TrackBar1.OnChange := Nil;
  TrackBar1.Position := MediaPlayer1.Position;
  TrackBar1.OnChange := TrackBar1Change;
end;

Пришлось связать через таймер, т.к. у медиаплеера нет Progress...

[FreeAccess]

спасибо всё работает,
но теперь ещё осталась одна проблемка.
как сделать такую вещь. я запустил программу.нажал Play и идёт видео. если я начинаю просматривать видео с помощью скролинга. то оно останавливается, как будто бы я нажал паузу.т.е. когда я отпускаю скролинг нужно ещё раз нажимать Play. я в trackbar1 написал такую строчку mediaplayer1.play; т.е. теперь когда я проматываю видео во время просмотра - он не останавливается. но вот в чём загвоздка - когда я запускаю программу, но ещё не нажимал кнопку play и начинаю просматривать его скролингом то видео начинает проигрываться хотя play не нажата(это из за строчки mediaplayer1.open). как мне сделать так чтобы при скролинге видео не проигрывалось ещё до того как я нажимаю Play?

[lmikle]

Перед изменением позиции в change проверяй в каком состоянии медиаплеер и только если он играет вызывай play.