Programm mit 2 Liedern /MediaPlayern -> Error

[Poseidon]

Achso, jetzt weiß ich was du meinst Da reicht ein TMediaplayer völlig aus. Ändere einfach den Filename wärend der Laufzeit so:

Delphi-Quellcode:

procedure Button1.click;
begin
mediaplayer1.AutoEnable:= true;
mediaplayer1.FileName:='dein 1. lied.mp3';
mediaplayer1.open;
mediaplayer1.Play;
button2.visible:= true;
button3.visible:= true;
end; 


procedure Button2.click;
begin
Mediaplayer1.filename:='dein 2. lied.mp3';
mediaplayer1.play;
end;

procedure button3.click;
begin
Mediaplayer1.filename:='dein 3. lied.mp3';
mediaplayer1.play;
end;

Wenn Button2 und 3 visible:= false sind dürfte alles glatt laufe