在用TMediaPlayer播放CD的时候,它会从某条音轨(由我程序事先设定的)一直播放下去,我想让它在播完一首歌之后停下,来该怎么做?(50分)

  • 主题发起人 主题发起人 SilverEagle
  • 开始时间 开始时间
S

SilverEagle

Unregistered / Unconfirmed
GUEST, unregistred user!
在用TMediaPlayer播放CD的时候,它会从某条音轨(由我程序事先设定的)一直播放下去,我想让它在播完一首歌之后停下,来该怎么做?
 
MediaPlayer有一个Notify事件,你试一试,或许有用(它在结束时会触发,但不知道你的情况。。)。

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin

case MediaPlayer1.NotifyValue of:
nvSuccessful, nvSuperseded, nvAborted, nvFailure:
//...

end;

end;

 
这个事件我试过了,它是等到最后一首播完后才触发的
我再试试看
 
OK,我自己搞定了!
 
后退
顶部