Irgendwie blick ich da nicht so ganz durch mit den mehreren Units.
Habs mal mit nem Timer versucht.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if imgcartman.Top = imgcartman.Top -100 then begin
timer1.Enabled := false;
timer2.enabled := true;
end
else begin
repeat
Imgcartman.Top := Imgcartman.left -5;
until (imgcartman.Top = imgcartman.Top -100);
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if imgcartman.Top = imgcartman.top +100 then begin
timer2.enabled := false;
end
else begin
repeat
imgcartman.Top := imgcartman.Top +5;
until (imgcartman.Top = imgcartman.Top +100);
end;
end;
Timer1 wird durch die Leertaste gestartet.
Delphi-Quellcode:
VK_SPACE: begin
timer1.enabled := true;
Key := 0;
end;
Aber es klappt nicht... wenn ich die leertaste drücke friert das Programm ein.
wo liegt der Fehler? ich finde den nicht.