MediaPlayerでのmidiファイル再生について (ID:9326)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 このように、ボタンをクリックするとSTOPするようにすると、 Notifyが呼び出されてまた再生されることまではいいのですが、 その後の音がそれまでのと違ってしまいます。 ちなみに、wavファイルではそうならなかったのにmidiファイルの時になります。 どうしてでしょうか。 procedure TForm1.FormCreate(Sender: TObject); begin MediaPlayer1.Notify:=True; MediaPlayer1.Open; end; procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin MediaPlayer1.Play; end; procedure TForm1.Button1Click(Sender: TObject); begin MediaPlayer1.Stop; end;