Loop-Funktion im MediaPlayer aktivieren.

[Darty]

Delphi-Quellcode:

// MediaPlayer Loop Funktion
procedure Form1.MediaPlayer1Notify(Sender: TObject);
begin
  if MediaPlayer1.Notify = True then
  begin
    MediaPlayer1.Play;
  end else
  begin
      MediaPlayer1.Stop;
  end;
end;

Wenn die Loop-Funktion eingeschaltet wird, muss diese Zeile eingefügt werden ..

Delphi-Quellcode:

MediaPlayer1.Notify := True;

bzw. wenn sie ausgeschaltet werden soll ...

Delphi-Quellcode:

MediaPlayer1.Notify := False;

Kurz-Erklärung: Wenn das Ende vom der Sound-Datei erreicht wurde, und Notify ist True, dann wird die Procedure Form1.MediaPlayer1.Notify aufgerufen.

[edit=Matze]Code formatiert. Mfg, Matze[/edit]