在listbox元件中怎麽播放音樂啊 |
|
答題得分者是：老大仔
|
|
mp394681143
一般會員   發表：64 回覆：40 積分：20 註冊：2009-10-11 發送簡訊給我 |
我在窗體中加入，1個MediaPlayer1元件，1個Timer1元件，1個Gauge1元件，運行以下代碼，就是打不開設備，無法播放音樂，難道一定要用對話框才能實現？我試了一晚上都未成功！請大家幫忙啊！
[code delphi] procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean); begin case Button of btPlay : Timer1.Enabled := True ; btPause: Timer1.Enabled := False ; btStop: Timer1.Enabled := False ; end; Gauge1.MaxValue := MediaPlayer1.Length ; Gauge1.Progress := MediaPlayer1.Position ; end; procedure TForm1.ListBox1Click(Sender: TObject); var yiyu:string; begin yiyu:='http://au.9you.com//download/song/sample/0816/lizhenxian-duyiwuer.mp3'; mediaplayer1.FileName:=listbox1.Items.MethodName(@yiyu); end; [/code] 編輯記錄
|
|
老大仔
尊榮會員  發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
站上已經有許多的文章有討論過了
請先爬爬文~ 隨附一篇也是有關播放的文章 http://delphi.ktop.com.tw/board.php?cid=30&fid=74&tid=98108 剩下的~可能要請您自行先行爬文了~
編輯記錄
老大仔 重新編輯於 2009-11-07 11:12:07， 註解 無‧
|
|
mp394681143
一般會員 發表：64 回覆：40 積分：20 註冊：2009-10-11 發送簡訊給我 |
謝謝大俠!
===================引 用 老大仔 文 章=================== 站上已經有許多的文章有討論過了 請先爬爬文~ 隨附一篇也是有關播放的文章 http://delphi.ktop.com.tw/board.php?cid=30&fid=74&tid=98108 剩下的~可能要請您自行先行爬文了~ |
發表時間：2009-11-07 05:27:07
IP:61.136.xxx.xxx 訂閱
系統時間：2024-04-26 15:41:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |