Huhu,
ich möchte das Bild gerne immer schneller fallen lassen:
Delphi-Quellcode:
var
Form1: TForm1;
Fallen: real;
Höhe: integer;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Fallen:= 1;
with Image1 do
repeat
Höhe:= Image1.Top;
Fallen:= Fallen*1.1;
Image1.Top:=Image1.Top - Fallen;
until ( Image1.Top = Höhe - 250 );
end;
Nur ich bekomme dann die Fehlermeldung:
[Fehler] Unit1.pas(36): E2010 Inkompatible Typen: 'Integer' und 'Extended'
Was muss ich den dort machen
mfg