MediaPlayer Stockt

[Matze]

Hier habe ich in der DP noch was gefunden, vieleicht hilft's dir ja.

Das hat himitsu hier geschrieben:

Delphi-Quellcode:

{Timer1.Interval := 300;} 
{TrackBar1.Max := MediaPlayer1.Length div 1000;} 

Procedure TForm1.Timer1Timer(Sender: TObject); 
  Begin 
    (* TrackBar-Position an die MediaPlayer-Position anpassen *) 
    TrackBar1.Position := MediaPlayer1.Position div 1000; 
  End; 

Procedure TForm1.TrackBar1Change(Sender: TObject); 
  Var TBP, MPP: Integer; 

  Begin 
    TBP := TrackBar1.Position; 
    MPP := MediaPlayer1.Position div 1000; 
    (* MediaPlayer-Position an die TrackBar-Position anpassen, * 
     * wenn der Unterschied grösser als 2 Sekunden ist         *) 
    If ABS(TBP - MPP) > 2 Then MediaPlayer1.Position := TBP * 1000; 
  End;