Dynamisch erzeugtes TImage nicht sichtbar

[flomei]

Hallo! :hi:

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 :hi: :dp:

[Gandalfus]

Zitat:

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 :hi:

[Christian Seehase]

Moin Florian,

die Eigenschaft Parent des Images muss noch gesetzt werden.

[flomei]

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

MfG Florian :hi:

[flomei]

Aha!

Delphi-Quellcode:

Parent := self;

hab ich jetzt noch drangehangen vor Show;
Die Images sind trotzdem noch nicht sichtbar? Warum nicht?

MfG Florian :hi:

[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:

Zitat von Christian Seehase

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

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

Danke!

MfG Florian :hi:

[flomei]

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

MfG Florian :hi:

[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.

[flomei]

Habe schon

Delphi-Quellcode:

Parent := BackGroundImage.Parent
und
Parent := MainForm.Parent

ausprobiert aber es geht immer noch nicht. Ich verzweifel hier bald...

MfG Florian :hi:

P.S.: Hier könnt ihr zum letzten Mal sehen wie flomei den DP rules Smilie einfügt! Achtung!
:dp:

[DataCool]

Hi,

Christian meinte :

Parent := BackGroundImage;

So wie Du das gemacht hast, wird dem Parent ja wieder das Parent Deines Hintergrundbildes zugewiesen, damit liegt es wieder dahinter.

Gruß Data

[axelf98]

Delphi-Quellcode:

      with Gegner[i] do 
        begin
          Picture.LoadFromFile('C:\Bild.bmp');
          left := random(Form1.Width);
          top := random (form1.Height);
          height := 32;
          width:= 32;
          Visible := true;
          Show;
          Parent := form1;   //Bzw Mainform
        end;

Das klappt bei mir wunderbar....

[Gandalfus]

warumm willst du den TImage überhaupt benutzen?
Versuch doch mal was mit TGraphicControl
oder einem Record(oder Object)

Delphi-Quellcode:

  TGegner = record
    bild: TBitmap;
    left,top: integer;
    visible: boolean;
  end;

[Minz]

vielleicht hilft noch ein Refresh oder sowas...