Mediaplayer - Mit Trackbar Posizion des Liedes steuern

[sandraeberlein]

Wie geht das? Also ich will mit der Trackbar spulen also die Position des Liedes ändern.
Auch soll die Position atuomatisch mitkommen beim Abspielen.
Kompliziert gesagt, aber eifach gecodet. Sorry habe Kopfweh aber brachs dringend.

Mfg,
Sandra

[turboPASCAL]

Hi, So?

Delphi-Quellcode:

var AwnChangePos : Boolean = False;

procedure TForm1.Button1Click(Sender: TObject);
begin
  mediaplayer1.FileName := 'hallo.wav';
  mediaplayer1.Open;
  mediaplayer1.Play;
  TrackBar1.Max := mediaplayer1.Length;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  AwnChangePos := False;
  TrackBar1.Position := mediaplayer1.Position;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  if AwnChangePos
    then mediaplayer1.Position := TrackBar1.Position
    else AwnChangePos := True;
end;