食戟之灵百度网盘无修:30分 delphi 中 怎么判断音乐播放完毕?

来源：百度文库 编辑：神马品牌网 时间：2024/04/28 00:49:45
我是用mediaplayer1播放了一个声音文件,怎么才能判断播放完毕 然后弹出对话框呢?
我这样做 不行啊

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Play;
if mediaplayer1.Position=mediaplayer1.EndPos then
ShowMessage('播放完毕 ^_^');
end;
这个是程序一运行就开始播放
怎么才能判断呢?

想领分来这里
http://zhidao.baidu.com/question/10807376.html
30分 delphi 中 怎么判断音乐播放完毕? delphi 中mediaplayer1控件 怎么判断播放完毕? 在DELPHI中怎样判断listview是否为空? 在DELPHI中怎样判断treeview是否为空? 天下足球中播得音乐是什么 delphi 中怎么在状态栏中 变色 音乐中怎么算是第四拍,怎样判断是第四拍? 在Delphi中，怎么查找字符串？ 怎么在DELPHI中运行DOS命令 delphi 中备份怎么做啊?