Forum: Multimedia
Delphi
by scp,
1. Nov 2003
Also, ich habe jetzt mal ein Projekt erstellt und getestet, es klappt. Siehe Anhang.
Forum: Multimedia
Delphi
by scp,
1. Nov 2003
Achso, dann ist If (Mediaplayer1.Mode = mpStopped) then wohl besser
Forum: Multimedia
Delphi
by scp,
1. Nov 2003
Sorry:
Inc(PlayL1.ItemIndex);
muss durch
PlayL1.ItemIndex := PlayL1.ItemIndex + 1;
ersetzt werden.
Forum: Multimedia
Delphi
by scp,
1. Nov 2003
Da du ja schon einen Timer hast würde ich folgendes in OnTimer einbauen:
if Mediaplayer1.Position = mediaplayer1.EndPos then begin
Mediaplayer1.Close;
If (PlayL1.ItemIndex < (PlayL1.Count - 1)) then begin
Inc(PlayL1.ItemIndex);
BitBtn1Click(Sender);
end
else