Grafiken in Form hin- und herschieben

[Aurelius]

Das könnte man gut mit einem Timer machen, als Intervall 10 eingeben und so in etwa machen

Delphi-Quellcode:

procedure Buttonclick;
begin
 Bild2.Left := Form.Width - Bild2.Width;
 Timer1.Enabled := TRUE;
end;

procedure Timer;
begin
 Bild1.Left := Bild1.Left + x;
 Bild2.Left := Bild2.Left + x;
 if Bild1.Left > Form.Width then
  Timer.Enabled := false;
end;

Natürlich müssen da noch anpassungen gemacht werden (Startpunkt des Bildes, Intervall, der wert für x etc).