Wenn Lied fertig ist neues Abspielen.

[ferby]

Hallo,

Ich habe jetzt follgendes gemacht:

Delphi-Quellcode:

procedure TForm1.MediaPlayerNotify(Sender: TObject);
var
y:byte;
begin
  randomize;
  y:=random(9) + 1;
  Mediaplayer.FileName := 'midi/' + inttostr(y) + '.mid';
  Mediaplayer.Play;
end;

Jetzt wird das Midi was als ersters per zufall gewählt wurde dauernt wiederholt???
Das verstehe ich nicht, warum wird kein anderes midi gewählt???

Wenn ich die procedure TForm1.MediaPlayerNotify weglasse dann wird dan kommt nach den zufalls midi nichts mehr, wenn ich sie mache wird das selbe midi dauernt wiederholt, wissoooooo????