DelphiX: fehlermeldung nach game over

[Haegar]

hi, ich habe in meinem spiel, nen schiff, nen asteroiden und nen schuss :D
jetzt hatte ich vor, das wenn der asteroid mit dem schiff collidiert, asteroid und schiff verschwinden, die nachricht game over erscheint, und man über maus neu starten kann oder beenden kann (menü).
habe dazu folgenden code im collisionsfall:

Delphi-Quellcode:

procedure TAsteroid.DoCollision(Sprite:TSprite; var Done:Boolean);
begin
 if Sprite is TRaumschiff then
  begin
   Form1.DXtimer.Enabled:=false;
   asteroid.Dead;
   schiff.Dead;
   Form1.DXDraw.Surface.Fill(0);
   Form1.DXspreng.Dead;
   showmessage('GAME OVER');
  end;
 if Sprite is TSchuss then
  begin
   y:=10;
   x:=20+random(420);
   //dead;
   punkte:=punkte+treffer;
   Form1.lbl_punkte.Caption:=IntToStr(punkte);
  end;
end;

tja, nun frag ich mich warum ich nach dem bestätigen von "ok-button" bei GameOver nen Laufzeitfhler bekomme. kann mir einer sagen, wo der fehler liegt?? mit compilieren mit F7 geht er bis zum letzten "end;"!


gruss haegar

[Haegar]

mal wieder nach oben rücken ;)

[mimi]

Das kann daran liegen das die colision schon bei onCreate kommet !
bei DX(Frag mich nicht warum) kann man nicht, wenn der DXTimer an ist beim Starten ShowMessage machen, Deaktiver mal den DXTimer bei einer Colision(vileicht hilft das ja)

[Haegar]

hab vorrübergehen nur die showmessage drin, sowie timer.enabled:=false;
das klappt soweit, aber eigentlich wollte ich eben durch spiel ende erstmal die objekte löschen! naja kann ich später nochmal probieren

gruss haegar

[mimi]

das ist ja auch nicht so schwer.
du verwendes Sprints oder ?

[Haegar]

TImageSprite sind die objekte

[mimi]

einfach mit Free klllen;)

[Haegar]

funktioniert aber nicht, vielleicht bau ichs auch nur an der falschen stelle ein!.....wo musses denn hin?

[mimi]

Es gibt da eine andre funktion bei den Sprints;)
ich kenne mich leider mit Sprints und delphix nicht aus.
aber das muss da hin wo es gelöscht werden soll;)