想用 MediaPlayer 做個播放器, 但delphi提供的進度條不美, 他提供的有trackbar等...想用圖片自己做一個，好像ｗｉｎａｍｐ那樣。 我自己做的，但不理想．．．”有小數點差異”

引言: var fre, MovLen : Real; procedure TForm1.Button1Click(Sender: TObject); begin Player.TimeFormat := tfMilliseconds; Player.FileName := 'test.mp3'; Player.Open; Timer1.Enabled := true; Player.Play; end; //Player = MediaPlayer1 procedure TForm1.Timer1Timer(Sender: TObject); begin fre := Player.Length / 1000;//頻率 MovLen := Bar.Width / fre ;//每次移動 Move.Left := Move.Left + Round(MovLen); if (Player.Position = Player.Length) then//當播完就停止 Begin Timer1.Enabled := false; Move.Left := Bar.Left; End; end;

以上方法問題出在Move.Left，由於Left不支持Float，那麼每次移動都有小數點的差異，如果歌曲好長，差異就好大了．

再宣告一個全域變數，這樣就可以支持Float了啊。

var
  MoveLeft:Double;    MoveLeft:=MoveLeft   MovLen;
Move.Left := Round(MoveLeft);    

這樣做如何？ 給點提示，不一定要用delphi的標準元件，真的不好看...我用suiPack做外觀設計的，可以換皮膚，當然也有很多選擇，可以search看看吧 進度條的部份我用ProgressBar，MIN設0，MAX設10000，每秒鐘抓幾10次位置更新，POSITION := ROUND((現在播放片段點/片段總時間點)*10000) ; 許下第一千零一個願望 有一天幸福會聽我的話