如何指导mediaplay是否已经播放结束， 处于“休闲”状态？(100分)

本页无内容

用一个timer控件检测mediaplayer1.position是否等于mediaplayer1.length
用if语句就可知道！
或者
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin

if mediaplayer1.position=medipalyer1.length then

showmessage('stop');

end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin

if MediaPlayer1.Mode = mpStopped then

.....// 已经停止播放；
end;