چه كدي بايد بنويسم كه...

يه عنصر TProgressBar و يا يك TTrackBar بهمراه آهنگي كه در عنصر مديا پلير پخش ميشه حركت كنه و با جابجا كردنش هم آهنگ جلو عقب بشه.

سلام
از اين كد ميتونيد استفاده كنيد، ولي بهتر كردنش با خودتون :

کد:

---

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ProgressBar1.Position := mediaplayer1.Position;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 Mediaplayer1.Position := Trackbar1.Position;
 Mediaplayer1.Play;
end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
 if Button = btPlay then
  begin
  ProgressBar1.Position := 0;
  trackbar1.Position := 0;
  ProgressBar1.Max := mediaplayer1.Length;
  trackbar1.Max := mediaplayer1.Length;
  timer1.Enabled := True;
  end;
end;

---

ممنون
باا