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 :love:

[turboPASCAL]

Hi, So? :gruebel:

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;