Prüfen ob ein TImage existiert ?

[Premaider]

Hey Leute.
Wie überprüft man ob ein TImage existiert ?
Bei mir wird während das Programm läuft so ein TImage erstellt:

Delphi-Quellcode:

Bild:=TImage.create(nil);

Der Timer erstellt erst in einer IF-Schleife das Image. Doch
der Timer soll auch wenn es dieses Image schon existiert ihm eine Positionen zuweisen.
Etwa so: (Image1 existiert schon vorher ;D)

Delphi-Quellcode:

  Bild.Top:=Image1.Top;
  Bild.Left:=Image1.Left

Wie mache ich das unter Delphi7 ?

[DeddyH]

If-Schleife. Und was für ein Timer? Zeig doch mal Code.

[Premaider]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  r:Trect;
begin
  Bild2.Top:=Image1.Top+(Image1.tag * 16); // Soll nur ausgeführt werden, wenn es das Image gibt, da sonst ein Fehler kommt.
  Bild2.Left:=Image1.Left+(Image1.tag * 16); // Soll nur ausgeführt werden, wenn es das Image gibt, da sonst ein Fehler kommt.
  if InterSectRect(r,image1.BoundsRect,Bild.BoundsRect) then
    Begin
      Image1.tag:=Image1.Tag+1;
      Bild.Left:=Random(Form1.Width-Bild.Left);
      Bild.Top:=Random(Form1.Height-Bild.Top);
      Bild2:=TImage.create(nil);
      bild2.parent := self;
      Bild2.picture.LoadFromFile('Spiel.jpg');
      Bild2.autosize:=true;
      Bild2.Visible:=true;
end;
end;

Vllt erkennt ihr ja, dass es Snake werden soll :D

[DeddyH]

Was ist denn Bild2, eine globale Variable?

[Premaider]

ja, es ist aber in den { Private-Deklarationen } :D

[DeddyH]

OK, dann ist es mit nil initialisiert, also sollte das hier funktionieren.

Delphi-Quellcode:

if not Assigned(Bild2) then
  Bild2 := TImage.create(nil);

[Premaider]

€dit: Gelöst

Danke für deine Hilfe :D

[Dalai]

Und nicht vergessen, das TImage (hier Bild2) nach dem Benutzen wieder zu zerstören, spätestens im TForm.FormClose oder TForm.FormDestroy, sonst gibt es Speicherlecks.

MfG Dalai

[DeddyH]

Es würde schon genügen, statt nil einen existierenden Owner anzugeben, dann geschieht die Freigabe automatisch.