如何将一个图片缓慢地从一点移动到另一点?

Question

如何将一个图片缓慢地从一点移动到另一点? 怎么实现?谢谢

Answer 1

方法一，用image显示图片，然后用一个timer每1/10秒移动一个象素
方法二，使用copyrect实现方法1代码如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, editPanel, Grids, jpeg;type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Image1.Left := Image1.Left + 1;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := true;
  Timer1.Interval := 100;
  Timer1.Enabled := true;
end;end.

Answer 2

Timer1.Interval := 4294967295;

Answer 3

嘿嘿。Timer1.Interval := 4294967296；