MediaPlayer控件onnotify过程检测不到Mode,notify已设为True?(20分)

procedure TForm1.MP1Notify(Sender: TObject);

if (mp1.Mode=mpStopped) or (mp1.Position=mp1.Length) then

begin

Mp1.Close;
i:=i+1;
MP1.FileName:=listbox1.item;
MP1.Notify:=true;
Mp1.play;
end;

end;

???不应该啊，你单独开个application，只放一个MediaPlayer 设置试试看
应该是你其他代码的影响

另外，你代码有错误，应该调用mp1.stop;而不是mp1.close;