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.