zur laufzeit erstellte Items löschen und Name zuweisen

[Detrox]

Hi, habe wiedermal ein Problem, ich möchte Sachen vom Himmel rieseln lassen,
per zufall also zB Bombe/Herz/Banane.

wenn diese zur Laufzeit erzeugten Images den unteren Rand der Form erreicht haben, sollen sie gelöscht werden.
(das habe ich mit visible gelöst aber das ist glaube auch nicht resourcenschonend)
Nur bekomm ich das nicht hin, folgende Probleme:

- sobald ein neues Bild erzugt wurde ist der Name createitem ja an das neuerzeugte Bild vergeben.
- ich möchte auch abfragen was für ein Bild den boden erreicht hat zB showmessage('Banane hat gerade den Boden erreicht');

hier mal mein derzeitiger Code:

Delphi-Quellcode:

procedure TForm1.itemfabrikTimer(Sender: TObject);
begin
itemcount:=itemcount+1;
createitem:= TImage.Create(self);
createitem.Name:='item' + inttostr (itemcount);
createitem.Parent := Form1;
createitem.Left:=baloon.left+74;
createitem.Top:=baloon.Top+baloon.Height;
createitem.picture.LoadFromFile('img/bomb.gif');
createitem.AutoSize:=true;
createitem.show;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if itemcount>=1 then
createitem.Top:=createitem.Top+1;
if ((itemcount>=1) and (createitem.top>=spielfeld.top+spielfeld.Height-30)) then
createitem.Visible:=False;

end;

LG
Detrox

[Uwe Raabe]

Schau mal nach FindComponent

[DeddyH]

Und zum 2. Problem: Du könntest die Klasse TImage ja um ein Feld erweitern. Mal aus dem Kopf:

Delphi-Quellcode:

type
  TItemKind = (ikBanana, ikBomb, ikHeart);

  TImage = class(ExtCtrls.TImage)
  private
    FItemKind: TItemKind;
  public
    property ItemKind: TItemKind read FItemKind write FItemKind;
  end;

  TForm1 = class(TForm)
  ...

Nun solltest Du nach dem Erzeugen des TImage die Eigenschaft ItemKind setzen und auswerten können.

[Detrox]

Zur Antwort von Uwe Raabe

das mache ich doch schon mit:

createitem.Name:='item' + inttostr (itemcount); Mein Problem ist eigentlich, das sich die erzeugten Items mit einem Timer nach unten bewegen.
Nur wen ein neues Item erzeugt wird bewegt sich dieses nach unten solange bis ein neues erzeugt wird usw...

[DeddyH]

Damit setzt Du den Namen, Uwes Tipp ging in die Richtung "Image zur Freigabe wiederfinden"

[Detrox]

Ich hab mal das Spiel mit Source hochgeladen, ich versteh nur noch Bahnhof, villeicht kann mir wer meinen Denkfehler eklären

LG
Detrox

[DeddyH]

Was verstehst Du denn nicht?

[Detrox]

DeddyH

Der Timer der die Erzeugten Bilder nach unten bewegt, muss jedes erzeugte bild nach unten bewegen bis ein ereigniss eintritt
(am boden angekommen).

Das versteh ich nicht, denn wie soll ich dem Timer die Namen von allen Bildern sagen er weis ja auch nie wieviele Bilder erzeugt wurden.

[DeddyH]

Dann speichere die Objekte doch in einem Array/einer TObjectList ab, das/die kannst Du dann einfach durchlaufen.

[Detrox]

Ganz dumme Frage, bin noch Anfänger hab die Objecktlist nie benutzt, hab mir das mal auf Delphi-Treff angeschaut, nur kann mein Delphi nix mit TObjecktlist anfangen, ist das eine Komponente? Ich kann sie im Reiter nirgends finden.