- くだすれDelphi(超初心者用)その56
140 ：デフォルトの名無しさん[sage]：2014/10/30(木) 20:20:58.58 ID:xiTB3i02 - >>139
朝言った追加と修正だよ
1曲終わったら次の曲に進むやつ
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Position = MediaPlayer1.Length then begin
NextButtonClick(nil);
end;
end;
procedure TForm1.PlayFile(Filename: string);
begin
if FileExists(Filename) then begin
MediaPlayer1.Close;
MediaPlayer1.FileName := Filename;
MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.Notify := true;
end;
end;
|