Repeat

Tags:    delphi

Hvordan får jeg en mediaplayer til at starte en sang forfra når den er færdig



1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Hvordan får jeg en mediaplayer til at starte en sang forfra når den er færdig


Du kan jo prøve:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with MediaPlayer1 do
begin
if Position = Length then
begin
Rewind;
Play;
end;
end;
end;

DiZpel



t