MP3 abspielen --- Probleme mit TMediaplayer

[Matze]

Dieses Click-Ereignis ist nur gut, wenn du die vorgegebenen Schaltflächen nutzen möchtest, ansonsten stelle Visible auf false und nutze eigene Buttons, in deren Click-Ereignis du deinen Code einfach einfügen kannst.

Wie du es versucht hast, kann es nicht gehen, da du nicht unterscheidest, bei welchem Button was ausgeführt werden soll. Das ginge so:

Delphi-Quellcode:

if Button = btPlay then
begin
  // Code zum Abspielen
end
else if Button = btStop then
begin
  // Code zu stoppen
end
else if Button = ...

Die Buttons nennen sich so: btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btRecord, btEject.

Wenn du einen Dateinamen (Filename) zuweist und danach Open aufrufst, sollten die (sinnvollen) Buttons aktiviert sein.