Nose como lo esta implementando Yoslier, pero supongo que va a utilizar un Timer para que, a medida que se vaya reproduciendo el tema, vaya actualizando el TrackBar.
Cita:
puedes intentar aprovechar el evento "OnChange" del "TTrackBar". En el mismo puedes hacer uso de la propiedad "Position" del "TTrackBar" para asignarle el valor de esta a la propiedad "Position" del "TMediaPlayer".
|
Para que esto funcione (o por lo menos para que a mi me funcione) hay que agregarle una variable booleana para distinguir cuando se quiere actualizar la posicion del TrackBar (lo hace el Timer) y cuando se quiere modificar la posicion en el MediaPlayer (se hace con el mouse)
1ro Inicializas Actualizacion como false
Código Delphi
[-]
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if not Actualizacion then begin
MediaPlayer1.Position := TrackBar1.Position;
MediaPlayer1.Play;
end else
Actualizacion := false;;
end;
Código Delphi
[-]procedure TForm1.Timer1Timer(Sender: TObject);
begin
Actualizacion := true;
TrackBar1.Position := MediaPlayer1.Position;
end;
Bueno, yo lo probe y funciona. Tal vez, como menciona Dec, haya otra forma de hacerlo, pero no encontre el hilo.
Saludos...