Bewegung

[Z32]

Also erst mal vielen Dank für die Antworten, habe mir jetzt nen kleines Programm geschrieben wo ein Bild immer nach rechts fährt. Dann habe ich mir gedacht, lass das Bild doch einfach nach links fahren, wenn es rechts an den Rand stößt. Da habe ich jetzt ein Problem, das Bild rollt nach rechts und bleibt dort am Rand hängen.

Ich habe denn folgenden Code in einem On-Timer Ereignis.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var f: integer;
begin
f:= 10 ;

if image1.left + f < form1.ClientWidth then
image1.left := image1.Left +f

else image1.Left := image1.Left -f;
end;

Weiß vielleicht einer was ich falsch gemacht habe ???