FindComponent in Verbindung mit Timer bewegt nur 1 Image

[flomei]

Ich habe folgenden Code:

Delphi-Quellcode:

procedure TMainForm.MoveEnemyDownTimer(Sender: TObject);
  begin
    with TImage(FindComponent('ImgEnemy'+IntToStr(number_of_enemy))) do
      begin
        top := top +6;
      end
  end;

um dynamisch erstellte Images per Timer zu bewegen.
Leider wird ja nun nur das Image mit der aktuellen 'number_of_enemy' bewegt.
Wie kann ich das so ändern das alle Images, also die mit einer "alten" 'number_of_enemy' auch bewegt werden?

DANKE im Vorraus!

MfG Florian

[Christian Seehase]

Moin Florian,

so wie ich das verstanden habe, bietet es sich wohl an die verschiedenen Images mittels einer Schleife zu finden.
Ob dann hierbei der Schleifenzähler als Nummer des Images verwendet werden kann, hängt dann davon ab, ob die Nummer lückenlos aufeinander folgen oder nicht.
Für den Fall, dass nicht, müsstest Du Dir die Nummer die möglich sind (sein sollen) in einem Array (z.B. of integer) merken und dann eben diese Werte als Nummer der Images auslesen.