Hallo!
Mit folgendem Code im OnTimerEvent möchte ich gerne Images dynamisch zur Laufzeit erstellen...
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
Gegner[i] := Timage.Create(self);
with Gegner[i] do
begin
Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'ships\blue.ico');
left := random(MainForm.Width);
height := 32;
width:= 32;
Visible := true;
Show;
end;
end;
end;
Er kompiliert auch ganz brav und das Programm läuft dann auch aber ich sehe kein Image. Ich weiss nicht warum und wäre für jeden Lösungsansatz dankbar.
Dank im Vorraus!
MfG Florian
