MediaPlayer1.Position

[Toenn]

Guten Abend,
wie kann ich mit einer TrackBar die Position von einem MediaPlayer bestimmen?

(Habs schon so versucht mit MediaPlayer1.Position := Trackbar1.Position; aber dann hört der MediaPlayer immer auf zu spielen. (Bei Musikdateien))

Thx für Antworten,
Tuenn

[Uncle Cracker]

Dein Code:

Code:

MediaPlayer1.Position := Trackbar1.Position;

Mein Code:

Code:

Trackbar1.Position := MediaPlayer1.Position;

[Toenn]

Zitat von Uncle Cracker:

Dein Code:

Code:

MediaPlayer1.Position := Trackbar1.Position;

Mein Code:

Code:

Trackbar1.Position := MediaPlayer1.Position;

mit deinem code tut man die position in ne trackbar.
is auch gut, aber die trackbar springt immer direkt zum ende

[Uncle Cracker]

Dann hilft dir vielleicht dieser Beitrag: Auf mich kann man klicken

[Toenn]

ich schaue mir das morgen mal an, ich habe jetzt keinen bock mehr

cu

[Stanlay Hanks]

Hi.

Zuerst mal musst du der Trakbar "sagen" wie lange sie überhaupt sein soll. Das müsstest du so machen: (Ich habs jetz einfach ins OnCreate gepackt, is aber nur für dieses Beispiel)

Trackbar1.Max := MediaPlayer1.TrackLength[1]; Das mit dem Abspielen und "Scrollen" innerhalb eines Lieds hätte ich so gemacht. (funzt auch, habs probiert). Das gehört ins OnClick der Trackbar

Delphi-Quellcode:

MediaPlayer1.Stop;
Mediaplayer1.StartPos := Trackbar1.Position;
MediaPlayer1.Play;

Man liest sich, Stanlay

PS: Mein 1500. Beitrag

[Toenn]

Zitat von Uncle Cracker:

Dann hilft dir vielleicht dieser Beitrag: Auf mich kann man klicken

dat ding, auf dat man klicken kann funzt.

@Stanlay: Deins geht auch

thx

[Moyyer]

Ein Trackbar heat kein OnClickEvent. Nur mal so zur Info.

[Stanlay Hanks]

Hi. Da hast du natürlich recht. Ich hab das wohl mit dem OnChange Ereignis verwechselt.

Man liest sich, Stanlay

[Gandalfus]

Zitat von Moyyer:

Ein Trackbar heat kein OnClickEvent. Nur mal so zur Info.

klar hat die Trackbar ein OnClickEvent ist nur nicht sichtbar.

eine Trackbarmit mouseevents von mir findet sich da:
http://www.delphipraxis.net/internal...178&highlight=