[Klassenas]

Как реализовать перемотку при воспроизведении медиафайла при помощи TTrackbar?
Отображение текущей позиции с его помощью я сделал, но когда патаюсь реализовать рперемотку, то ни фига не работает.
Вот мой код:

Код:

procedure TForm1.Timer1Timer;
begin
  with MediaPlayer1 do
    if FileName<>'' then
      TrackBar1.Position:=Round(200*Position/Length);
  end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
//with MediaPlayer1 do
//  if FileName<>'' then
//    Position:=Round(TrackBar1.Position*Length/200);
end;

Подскажите, что я сделал не так?

[Klassenas]

И ещё вопрос: хочу реализовать отображение времени в минутах и секундах при помощи TLabel, образец кода взял из статьи "Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд". Вроде всё правильно, но таймер какую-то фигню показывает.

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
 var
  Min, Sec: word;
begin
  with MediaPlayer1 do
  if FileName<>'' then
  begin
    Min:=MCI_TMSF_MINUTE(MediaPlayer1.Position);
    Sec:=MCI_TMSF_SECOND(MediaPlayer1.Position);
    Label3.Caption:=Format('%.2d:%.2d',[Min,Sec]);
  end;

Admin: Обоим предупреждение: Пользуемся тегами!