Forum: Multimedia
Delphi
by Poring,
16. Nov 2007
:coder2: Nein, wie mache ich das denn? :/
Forum: Multimedia
Delphi
by Poring,
16. Nov 2007
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.
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 ...
Forum: Multimedia
Delphi
by Poring,
16. Nov 2007
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 :(
Forum: Multimedia
Delphi
by Poring,
16. Nov 2007
Sollte ja auch noch flüssig sein. Was mich wundert:
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 );
Forum: Multimedia
Delphi
by Poring,
16. Nov 2007
Ahso danke.
Nur rennt das jetzt innerhalb von 2 sec ins unendliche ... will das eigentlich langsam fallen lassen. Gibts da ne möglichkeit?
Forum: Multimedia
Delphi
by Poring,
16. Nov 2007
round(Fallen);
so müsste es laut delphihelp sein:
For the last two cases, the result of calling the round() function is not the same as the result of adding 0.5 and then calling the floor() function because positive zero will be returned in such cases.
The following function call returns 3.
round(2.6)
The following function call returns 2.
round (2.4)
Forum: Multimedia
Delphi
by Poring,
16. Nov 2007
Huhu,
ich möchte das Bild gerne immer schneller fallen lassen:
var
Form1: TForm1;
Fallen: real;
Höhe: integer;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Fallen:= 1;