title image


Smiley könntest du mir wenigstens sagen,
wie man den Form1.MediaPlayer1Notify auf true und false setzt?

der solll nicht die ganze Zeit überwachen, sondern nur in dem bestimmen Fall, dass die Endetaste gedrückt wird.



Ich habe das jetzt so geregelt, aber das ist blöd, weil das System dadurch unnötig belastet wird:





procedure TForm1.Reset1Click(Sender: TObject);

begin

endecounter:=2;

Timer1.Enabled:=false;

MediaPlayer1.FileName:='ende.wav' {Stoppsound} ;

MediaPlayer1.open;

MediaPlayer1.play;

end;







procedure TForm1.MediaPlayer1Notify(Sender: TObject);

begin

if MediaPlayer1.FileName='ende.wav' then

if endecounter=2 then

if mediaplayer1.Position = mediaplayer1.Length then begin

MediaPlayer1.FileName:='ende.wav';

MediaPlayer1.open;

MediaPlayer1.play;

endecounter:=1;

end ;



end;

Gruß
HammeL
Ostfriese mit Leib und Seele.

Besser ein Schritt in die richtige Richtung, als gar keine Antwort.

Das ist nur ein Spiel, ich schiesse nur auf Polygone; ausserdem habe ich nach einer Runde Schach auch nicht das verlangen, jemand anderen wegzuschubsen, oder?

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: