834编程实例(2) end: procedure TForm1. Button2Click(Sender: TObject) begin mediaplayer1: Pause;/暫停Aⅵ文件的播放。 end: 当多媒体控制方法结束以后,就会产生 Onnotify事件 procedure TForm1. MediaPlayer 1 Notify (sender: TObject) begin case mediaplayer1 Notify Value of∥ Notifyvalue的值进行判断 Nvsuccessful messagedlg(播放成功, information,mbok],0) ∥控制命令成功。这样当播放完多媒体文件以后,就会弹出一个对话框,告诉 “播放成功”。 sUPerseded: messagedlg(命令被代替, information,[mbok],0); ∥控制命令被其他命令所代替 Nvaborted messagedlg(命令被终止, information[mbok],0 ∥控制命令被用户所终止 PF ailure.messagedlg (di 2 %.mfinioppatiopigpglop'epi nVi end: end8.3.4 编程实例（2） end; procedure TForm1.Button2Click(Sender: TObject); begin mediaplayer1.Pause;//暂停Avi文件的播放。 end; ｛当多媒体控制方法结束以后，就会产生Onnotify事件｝ procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin case mediaplayer1.NotifyValue of //对Notifyvalue的值进行判断 Nvsuccessful:messagedlg('播放成功',mtinformation,[mbok],0); //控制命令成功。这样当播放完多媒体文件以后，就会弹出一个对话框，告诉 “播放成功”。 nvSuperseded:messagedlg('命令被代替',mtinformation,[mbok],0); //控制命令被其他命令所代替。 Nvaborted:messagedlg('命令被终止',mtinformation,[mbok],0); //控制命令被用户所终止。 nvFailure:messagedlg('命令失败',mtinformation,[mbok],0);//控制命令失败。 end; end;