hallo erstmal,
ich habe mir schon die ganzen Beiträge angeguckt aber irgendwie haut mein Code net hin.Kann mir einer sagen was falsch ist?
Delphi-Quellcode:
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
Form1.MediaPlayer1.Pause;
MediaPlayer1.Position := TrackBar1.Position;
MediaPLayer1.Play;
end;
procedure TForm1.Timer3ZeitTimer(Sender: TObject);
begin
if Form1.MediaPlayer1.Mode = mpPlaying then
begin
Form1.TrackBar2.Max := Form1.MediaPlayer1.Length;
Form1.Trackbar2.Position := Form1.MediaPlayer1.Position;
end;
end;
danke alex
[edit=sakura]Alex, Du kennst die DELPHI-Tags doch schon Mfg, sakura[/edit]