MediaPlayer.....

Prøv og hent det her !

Der er vist det du spørg om !

Bare ikke med \"spole\" for det ved jeg ikke lige hvordan man kan med en MediaPlayer....!

/Thomas

upz....

Du skal jo også ha linket !

=)

www.southpark2k.dk/AllPlayer.zip

Nej det var ikke helt det jeg mente!

Har du ikke en procedure til fx. TProgressBar??

Hvis det er det man sætter den til det??

- NEo

Hej Neo16

Du henter Thomas\' eksempel, fjerner hans Gauge, og erstatter den med en ScrollBar.

Koden i onTimer eventer ænderes til det følgende :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 100;
  ScrollBar1.Max := Mp.length;
  ScrollBar1.Position := Mp.Position;
end;


Der efter laver du en onScroll event på din Scrollbar som du implementerer som følger :

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
Mp.Position := ScrollBar1.Position;
Mp.Play;
end;

Så kan du også spole ....

Jens B

Efter som i begge to have et godt svar, så her.. Det har i fortjent!

Jeg håber i er tilfredse med point\'ne, ellers så skriv!