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 ..
MediaPlayer1.Notify := True;
bzw. wenn sie ausgeschaltet werden soll ...
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]