Re: MediaPlayer1.Position
hi...
Sicher ist das Thema hier schon etwas älter :stupid: Trotzdem habe ich mir auch schon darüber gedanken gemacht und habe das Problem wie folgt gelöst (vielleicht interessiert es ja jemanden:
Delphi-Quellcode:
Ich verwende einen Timer mit Delay: 300 ms.
var
Form1: TForm1; SetNewPos: Boolean; {...}
Delphi-Quellcode:
und dann noch der Code für die Trackbar:procedure TForm1.Timer1Timer(Sender: TObject); begin IF Mediaplayer1.Mode = mpplaying then begin Trackbar1.Enabled:=true; {ist im Objektinstpektor auf "false" damit keine Fehlermeldungen erscheinen, wenn keine Datei geladen ist und man versucht die Trackbar zu bewegen} Trackbar1.Max:= Mediaplayer1.Length; Trackbar1.Position:= Mediaplayer1.Position; end else begin Trackbar1.Enabled:=false; Trackbar1.Max:= 0; Trackbar1.Position:= 0; //sieht besser aus end; end;
Delphi-Quellcode:
Naja ist sicher nichts Weltbewegendes, aber es geht.... :nerd: procedure TForm1.TrackBar1Change(Sender: TObject); begin if csLButtonDown in TrackBar1.ControlState then begin timer1.Enabled:=false; SetNewPos := True; end; if SetNewPos then begin if not (csLButtonDown in TrackBar1.ControlState) then begin MediaPlayer1.Position := TrackBar1.Position; MediaPlayer1.Play; SetNewPos := False; timer1.Enabled:=true; end; end; end; Fiel Fergnügen :hello: beatles.. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:13 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz