如何使背景图片的移动？

Question

我在form1 添加 image1，image1载入背景图片。
我想背景图片随时间而变化，就像做火车看窗外的风景一样，窗不动，而景色在变化。

Answer 1

放个TIMER然后再
Image1.Picture.LoadFromFile('A.bmp');//指定图片

Answer 2

放两个Image,Image1用来保存图片，Image2用来显示图片Rect1,Rect2:TRect;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Image1.Canvas.CopyRect(Rect1,Image2.Canvas,Rect2);
  Rect2.Left:=Rect2.Left+10;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Visible:=False;
  Rect1:=Rect(0,0,Image2.Width,Image2.Height);
  Rect2:=Rect1;
end;

Answer 3

晕，说反了。Image1用来显示图片，Image2用来保存图片，加了个停止的条件。var Rect1,Rect2:TRect;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Image1.Canvas.CopyRect(Rect1,Image2.Canvas,Rect2);
  Rect2.Left:=Rect2.Left+10;
  Rect2.Right:=Rect2.Right+10;
  if Rect2.Right>Image2.Picture.Width then Timer1.Enabled:=False;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Rect1:=Rect(0,0,Image1.Width,Image1.Height);
  Rect2:=Rect1;
  Image2.Visible:=False;
end;