Memory-Spiel: Ideen

[XardasLP]

Jo stimmt, man klickt danach ja noch bei dem MediaPlayer auf Play ^^

Delphi-Quellcode:

procedure TFormSpiel.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
TimerMusik.Enabled := False;
MediaPlayer1.Close;
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
TimerMusik.Enabled := True;
TrackBarMusik.Max := MediaPlayer1.Length;
TrackBarMusik.Position := MediaPlayer1.Position;
end;
end;

Bei der Trackbar Bewegung habe ich jetzt im 1. Moment an einen Timer gedacht.

Delphi-Quellcode:

procedure TFormSpiel.TimerMusik2Timer(Sender: TObject);
var i: integer;
begin
TrackBarMusik.Max := MediaPlayer1.Length;
for i := 1 to MediaPlayer1.Length do begin
TrackBarMusik.Position := MediaPlayer1.Position+1;
end;
end;