Videos mit dem Form Animate1.ResName

[Gehstock]

zu verstehen was der Code macht dann hättest du gemerkt das da was fehlt
sollen wir dir das komplette Programm vorkauen

Delphi-Quellcode:

procedure TForm10.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
var s : String;
begin
With MediaPLayer1 do begin
   case Button of
     btPlay   : begin
                  EnabledButtons := [btPause, btStop, btNext, btPrev];
                  Play;
                end;
     btStop   : begin
                  EnabledButtons := [btPlay, btNext, btPrev];
                  Stop;
                end;
     btNext   : begin
                  DoDefault := False;
                  Next;
                  Play;
                end;
     btPrev   : begin
                  DoDefault := False;
                  Previous;
                  Play;
                end;
     btPause  : begin
                  EnabledButtons := [btPause, btStop, btNext, btPrev];
                  Pause;
                end;
   end;
end;
end;

die Buttons werden nur Enabled wenn du eine datei zugewiesen hast

mit MediaPLayer1.FileName := 'test.wav';