請問TMediaPlayer用open和play開始播放後 如何讓程式知道音樂已經播完.以便close並換下一首? 謝謝

------
KUSO 無處不在

播放完後 會觸發TMediaPlayer 的OnNotify event ..

剛看完 Help 按回覆後看見 turboted 版主已經答覆了 不過還是稍為補充一下罷

1. 當 Notify 不是設成 True 時, OnNotify Event 是不會被觸發的, 而 Notify 預設是 False 的
2. 當觸發 onNotify Event 後 Notify 會自動重設為 False
3. 所有控制 Method(Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, Resume, Rewind, StartRecording, Step, or Stop)若開始時 Notify 是 True，完成後都會引發 onNotify Event
4. 所以若你想Play完後觸發 onNotify Event, 就要在呼叫 Play 之前將 Notify 設 True
5. 若你想所有控制指令都觸發 onNorifyEvent, 最簡單的是在一開始將 Notify 設 True , 然後在 onNotify Event 裡重新將自動變 False 的 Notify 設回 True

細作的自己去作囉，不明白的歡迎再問，不過可能會有人看後寫段程式碼給你抄也說不定

謝謝兩位大大的解說.謝謝 我寫成下面那樣 目前有個問題是OpenDialog如何MulitSelect檔案 我用OD1->File->Strings[1].好像不是這樣...尋找答案中.謝謝~_~    void __fastcall TForm1::mp1Notify(TObject *Sender) { if(iItems->Count){ if (mp1->NotifyValue == nvSuccessful){ i ; mp1->FileName=l1->Items->Strings[i]; mp1->Open(); mp1->Play(); } } }

------
KUSO 無處不在

kagaya您好:    您可以參考下面連結的黃金文章    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28749 不曉得是不是您要的 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～