请教高手TrackBar使用问题...

Question

现在自己利用Delphi做一个MediaPlay播放器,但在使用TrackBar显示播放进度的时候我怎么设置TrackBar总是得不到我要的结果呢???望高手指点.....
      MdPlay.FileName:=OpenDialog.FileName;
      MdPlay.Open;
      MdPlay.DisplayRect:=
      Rect(0,0,MainBord.ImagePan1.Width,MainBord.ImagePan1.Height);
      MdPlay.Play;
      Trackbar.position:=MdPlay.position;

Answer 1

你写错了procedure TForm1.bsSkinButton1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
      MdPlay.FileName:=OpenDialog1.FileName;
      MdPlay.Open;
      MdPlay.DisplayRect:=Rect(0,0,MainBord.Width,MainBord.Height);
      Trackbar.Max:=MdPlay.Length;  <--Max 歌曲总长度
      MdPlay.Play;
      Timer1.Enabled := True;
  end;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Trackbar.position:=MdPlay.Position; 《--- 走到什么长度了
end;看见没