Mediaplayer - Mit Trackbar Posizion des Liedes steuern

[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;