Mehrere Bilder gleichzeitig bewegen

[Khabarakh]

Zitat:

Zitat von Jarmen_Kell

@Khabarakh:
Naja das mit dem "begin" geht schon, er schließsts ja auch später wieder. Das ganze macht er danach noch einmal, allerdings frage ich mich auch sehr nach dem Sinngehalt ;)

Delphi-Quellcode:

for I := 1 to strtoint(lbl1.Caption) do
  biertest[I].top := biertest[I].Top + 20;
  begin
  if (biertest[I].Top + biertest[I].Height >= img1.Top) AND (biertest[I].Left <= img1.Left + img1.Width) AND (biertest[I].Left + biertest[I].Width >= img1.Left) then
  begin
    biertest[I].Visible := false;
    lblres.Caption := inttostr(strtoint(lblres.Caption)+50);
  end;
  if biertest[I].Top > form1.ClientHeight then
    biertest[I].Visible := false;
  end;

Es geht natürlich so, aber es ist wohl offensichtlich, dass der Code-Block eigentlich zur Schleife gehört.

[Jarmen_Kell]

Naja, es geht ja eben nicht ( snst gäbs diesen Thread ja nicht ) ;)