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:

Delphi-Quellcode:

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.

[DeddyH]

Du musst die Unit Contnrs einbinden. Ich habe mal schnell eine Demo mit Shapes geschrieben, das ist nur eine Form mit einem Timer (Interval 50).

Delphi-Quellcode:

unit ListDemoMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Contnrs;

type
  TfrmListDemo = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    FShapes: TObjectList;
    FWait: integer;
    procedure CreateShape;
  public
    { Public-Deklarationen }
  end;

var
  frmListDemo: TfrmListDemo;

implementation

{$R *.dfm}

//Dynamisches Erzeugen eines TShape und Ablegen in der Liste
procedure TfrmListDemo.CreateShape;
var Shape: TShape;
begin
  Shape := TShape.Create(nil);
  Shape.Parent := self;
  Shape.Shape := stCircle;
  Shape.Brush.Color := clRed;
  Shape.Left := Random(ClientWidth div Shape.Width) * Shape.Width;
  FShapes.Add(Shape);
end;

procedure TfrmListDemo.FormCreate(Sender: TObject);
begin
  DoubleBuffered := true;
  FShapes := TObjectList.Create;
  Randomize;
  FWait := 0;
end;

//Freigeben der Liste und aller enthaltenen Objekte
procedure TfrmListDemo.FormDestroy(Sender: TObject);
begin
  FShapes.Free;
end;

//ggf. Shape erzeugen oder freigeben, wenn unten angekommen
procedure TfrmListDemo.Timer1Timer(Sender: TObject);
var i: integer;
begin
  if FWait mod 10 = 0 then
    CreateShape;
  for I := FShapes.Count - 1 downto 0 do
    if (FShapes[i] as TShape).Top >= ClientHeight - (FShapes[i] as TShape).Height then
      FShapes.Delete(i)
    else
      (FShapes[i] as TShape).Top := (FShapes[i] as TShape).Top + 1;
  inc(FWait);
end;

end.

[edit] Add: Sollten das zuviele Bilder werden, so dass sich der Timer "selbst überholt", kannst Du ihn im Timer-Ereignis zuerst disablen, abarbeiten und zum Schluss wieder enablen. [/edit]

[Detrox]

Ich bin gerade am rumbasteln ich melde mich wieder :)


Danke schonmal werd mir das zu gemüte führen man lernt nie aus :D

[Detrox]

Super habs soweit auch kapiert, nur einwas versteh ich nicht was soll das bedeuten?

Delphi-Quellcode:

if FWait mod 10 = 0 then

Sry wenn ich mich ein bisschen dumm anstelle aber ich möchte auch verstehn was ich da mache ;)

[Namenloser]

Zitat:

Zitat von DeddyH

[edit] Add: Sollten das zuviele Bilder werden, so dass sich der Timer "selbst überholt", kannst Du ihn im Timer-Ereignis zuerst disablen, abarbeiten und zum Schluss wieder enablen. [/edit]

Das kann nicht passieren, denn solange der Code ausgeführt wird, kann die Application keine Messages abarbeiten, also auch nicht den Timer ausführen. Zumindest solange man nicht Application.ProcessMessages o.ä. aufruft.

[DeddyH]

Zitat:

Zitat von Detrox

Super habs soweit auch kapiert, nur einwas versteh ich nicht was soll das bedeuten?

Delphi-Quellcode:

if FWait mod 10 = 0 then

Sry wenn ich mich ein bisschen dumm anstelle aber ich möchte auch verstehn was ich da mache ;)

Das heißt, dass der folgende Code nur bei jedem 10. Durchlauf abgearbeitet werden soll. MOD gibt den Rest bei ganzzahliger Division zurück, aber das kannst Du auch in der Hilfe bzw. der Delphi-Reference nachlesen ;)

[Detrox]

So hab alles soweit verstanden vielen Dank dafür :)

Noch eine Sache das Problem hatte ich ja vorhin auch schon, ich habe eine Kollisionsabfrage, mal vereinfacht ungefähr so:

Delphi-Quellcode:

if createitem.top>=figur.top then ...

Aber sobald ein neues erzeugt wird, gilt der .top wert des neu erzeugten Objektes .

Wäre über weitere Hilfe dankbar :)

LG

[DeddyH]

Das musst Du dann in die Schleife innerhalb des Timers verlagern, siehe mein Beispiel.

[Detrox]

Hab ich ;)

itemisdrauf=5 ist nur ne sicherheitsabfrage ob schon eins erstellt wurde.

Delphi-Quellcode:

var i: integer;
begin
Statusbar1.Panels[0].Text:= inttostr (figur.top); // Zeig mit Topwert von Figur 
if itemisdrauf=5  then
Statusbar1.Panels[1].Text:= inttostr (createitem.top);  // Zeig mit Topwert von erzeugtem Object
if ((itemisdrauf=5) and (createitem.top>=figur.top)) // Item fällt auf Figut

 then

 showmessage('lol');
if FWait mod 100 = 0 then
    CreateShape;
    itemisdrauf:=5;

  for I := FShapes.Count - 1 downto 0 do
    if (FShapes[i] as TImage).Top >= spielfeld.Height+spielfeld.top - (FShapes[i] as TImage).Height-2 then
      FShapes.Delete(i)
     else
      (FShapes[i] as TImage).Top := (FShapes[i] as TImage).Top + 1;
  inc(FWait);

[DeddyH]

Mir scheint, Du hast das Beispiel doch noch nicht so ganz begriffen. Sind in FShapes jetzt Deine TImages drin? Und was ist createitem?

[Detrox]

Ja hab das nur noch nicht umbenannt hab Images erstellt anstatt Shapes, funktioniert auch alles SUper !

createimage

Delphi-Quellcode:

createitem := TImage.Create(nil);

[DeddyH]

createitem scheint also eine globale Variable zu sein, die nur das letzte erzeugte TImage enthalten kann. Wie ich bereits sagte, musst Du die Prüfung mit in die Schleife verlagern, damit alle Objekte der Liste überprüft werden.

[edit] P.S.: Du solltest Dir mal eine sinnvolle Einrückung angewöhnen. [/edit]