Sollte ja auch noch flüssig sein. Was mich wundert:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Fallen:= 1;
with Image1 do
repeat
Höhe:= Image1.Top;
Fallen:= Fallen*1.01;
Image1.Top:=round(Image1.Top + Fallen);
until ( Image1.Top = 50 );
end;
(Interval=2000)
Wenn es bei Top=50 bleibt es kurz stehen und dann rennt es ins unendliche nach unten. Warum?
