bestlong 怕失憶論壇

標題: 讓 TMediaPlayer 自動連續播放 [打印本頁]

---

作者: bestlong    時間: 2007-11-9 14:05     標題: 讓 TMediaPlayer 自動連續播放

設定 MediaPlayer1 的 AutoRewide 屬性為 True
然後在 OnNotify 事件中加入下列程式：

1. procedure TForm1.MediaPlayer1Notify(Sender: TObject);
   
2. begin
   
3.   if MediaPlayer1.NotifyValue = nvSuccessful then
   
4.     MediaPlayer1.Play;
   
5. end;

複製代碼

---

歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/)

Powered by Discuz! X1.5