Hallo.
Ich wollte für ein Spiel bei jedem Klick auf ein bestimmtes Image ein neues Bild auf der Spielfläche erscheinen lassen. Für jeden Klick kommt also auf der sichtbaren Fläche ein neues Bild hinzu.
Dafür habe ich erstmal für das erste Bild diesen Code zum generieren der Sprite verwendet:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| constructor TFlieger1.Create(AParent: TSprite);
begin
inherited;
X := 0;
Y := 0;
end; |
Bei jedem Buttonclick sollte nun die Funktion aufgerufen werden und das Bild generiert werden, wobei einer Geldsumme immer 100 abgezogen werden (mit x und Edit1.):
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| procedure TForm1.Image1Click(Sender: TObject);
var x,y,i:integer;
begin
x:=strtoint(Edit1.Text);
if x>=100 then begin
y:=x-100;
Edit1.Text:=inttostr(y);
LGeldA.Caption:=Edit1.Text;
AdSpriteEngine:= TSpriteEngine.Create(nil);
AdSpriteEngine.Surface:=AdDraw;
Randomize;
begin
with Tflieger1.Create(AdSpriteEngine) do
begin
Image:=AdImageList.Find('flieger1');
end;
end;
end;
end; |
Leider erzeugt der Klick auf das Image eine schöne Fehlermeldung à la >Debugger Exception Notification<.
Wie kann ich das nun ändern, damit bei jedem Klick an den Koordinate X,Y neue SpriteImages entstehen?
Habs mal angehangen:
Moderiert von 
Narses: Color- durch Delphi-Tags ersetzt.
