Hallo!
Hier im Forum habe ich ein bisschen Code gefunden der neue Images zur Laufzeit erzeugt...
Das sieht bei mir jetzt so aus:
Delphi-Quellcode:
procedure TMainForm.CreateNewEnemyTimer(Sender: TObject);
var i:integer;
Gegner : Array of Timage;
begin
setlength(Gegner,5);
for i := 0 to high(Gegner) do
begin
with Gegner[i] do
begin
Timage.Create(self);
Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'enemies\blue.ico');
left := trunc(random * 300);
height := 32;
width:= 32;
Visible := true;
Show;
end;
end;
end;
Das funktioniert nur leider nicht. Ich erhalte jedesmal die Meldung über eine Zugriffsverletzung. Wo muss ich was ändern damit es nicht mehr auftritt? Ich denke es liegt vielleicht an dem Bild das mir einige Sorgen bereitet. Ich habe oben in einer ComboBox den Gegner ausgewählt aber wie soll man dann den Pfad ändern???
Bin dankbar für jede Hilfe!
MfG Florian
