Dynamisch erzeugtes TImage nicht sichtbar

[flomei]

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

[Gandalfus]

Zitat von flomei:

Ich weiss nicht warum und wäre für jeden Lösungsansatz dankbar.

Timage wegschmeissen. TImage sollte man nur benutzen um mal schnell eine statisches Bild anzeigen. Bei bewegung und soweiter Canvas.draw (TBitmap usw) benutzen

[flomei]

Naja, aber es müsste ja trotzdem funktionieren... oder?

MfG Florian

[Christian Seehase]

Moin Florian,

die Eigenschaft Parent des Images muss noch gesetzt werden.

[flomei]

Vor Show; noch Parent; einfügen???

MfG Florian

[flomei]

Aha!
Parent := self; hab ich jetzt noch drangehangen vor Show;
Die Images sind trotzdem noch nicht sichtbar? Warum nicht?

MfG Florian

[Christian Seehase]

Moin Florian,

warum es bei Dir jetzt nicht geht kann ich Dir leider auch nicht verraten. Bei mir geht's so.
BTW: Du kannst das Visible := true, und das Show weglassen.

Hast Du vielleicht noch ein Panel oder ähnliches auf dem Formular?
Das würde die Images nämlich überdecken.

[flomei]

Zitat von Christian Seehase:

Hast Du vielleicht noch ein Panel oder ähnliches auf dem Formular?
Das würde die Images nämlich überdecken.

Es könnte sein, dass die Images unter einem anderen Image verschwunden sind. Werde das gleich überprüfen...

Danke!

MfG Florian

[flomei]

Hab noch ein BringToFront mit eingebaut. Es werden trotzdem keine Images sichtbar... Hat noch irgendjemand ne Idee oder einen Tipp?

MfG Florian

[Christian Seehase]

Moin Florian,

nimm doch als Parent die Kompo, auf der die Images sichtbar sein sollen.
Dann müsstest Du ggf. noch die Position ändern, da die Kompos immer relativ zum Parent angezeigt werden.