Bild fällt ... nicht

[Poring]

Delphi-Quellcode:

while Image1.Top<200 do begin
Höhe:= Image1.Top;
Fallen:= Fallen*1.01;
Image1.Top:=round(Image1.Top + Fallen);
Application.ProcessMessages;

So?
Naja ok nun hält es wenigstens an ^^
Jedoch sobald es sichtbar anfängt runter zu gehen, ist es slebst bei einem Interval von 5000 innerhlab von paar Millisekunden gleich unten

[Christian Seehase]

Moin Poring,

ich denke mal, dass es einfach keine gute Idee ist, dass Du das gesamte Fallen in einer Schleife abarbeitest.
Es würde wahrscheinlich besser funktionieren, wenn Du das Image bei jedem Timeraufruf ein Stückchen fallen lässt.

[Matze]

Hallo,

wenn du das so mittels Schleife lösen möchtest, benötigst du keinen Timer, denn beim ersten Timeraufruf wird die komplette Schleife in Sekundenschnelle abgearbeitet. Da genügt ein Delay (das ist eine Alternative zu Sleep) innerhalb der Schleife.

[Apollonius]

Darf ich fragen, warum du eine Schleife in einen Timer setzt? Wenn die Schleife bereits beim ersten Timer-Aufruf durchlaufen wird, ist Image1.Top natürlich schon größer oder gleich 200. Dann passiert bei weiteren Timer-Aufrufen nichts mehr. Nimm also die Schleife raus.

[Poring]

Es sollte ja nicht konstant fallen, sonder auch schneller werden ... aber eben nicht soo! schnell. Sollte vll schon so 5-6 Sekunden dauern von oben bis unten, nur eben immer shcneller werdend.

Delphi-Quellcode:

if Image1.Top<200 then begin
Höhe:= Image1.Top;
Fallen:= Fallen*1.1;
Image1.Top:=round(Image1.Top + Fallen);
Application.ProcessMessages;

Interval=500

Ja nun geht das besser, nun ruckelt es aber

[Apollonius]

Also die 1,1 und das Timer-Intervall verringern.

[Poring]

Nu flackerts

[Apollonius]

Ist DoubleBuffered gesetzt?

[Poring]

Nein, wie mache ich das denn? :/