Question

delphi 图片的移动

就是一个图片在FORM里从一个位置移动到另一个位置。（图片是一个小飞机啥的）
应该是端比较简单的程序吧，懂的人帮点忙撒，发个源码看看~~
是动画飞行效果的那种，用到timer控件的。

Answer 1

我给你做了一个，用的最笨的方法，但是我觉得也是最简单的方法。

源码如下：

加一个Panel，来做小飞机的天空

加一个Image，里面放上小飞机的图片

加两个按钮，一个控制timer开启，一个控制timer关闭，然后.....

procedure TForm1.Button1Click(Sender: TObject);

begin

        Timer1.Enabled:=True;  //开启timer1

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

        Timer1.Enabled:=False;  //关闭timer1

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

    image1.Left:=image1.Left+8;

    image1.Top := image1.Top - 5;

    if image1.Left+image1.Width > panel1.Width  then

    begin

      image1.Left:=0-image1.Width;

      image1.Top:=panel1.Height-image1.Height;

    end;

end;

追问

非常感谢哈！我看一个例子上是用了vcl application的creat form的东西，结果我不好创建vcl application。那个用了会是什么效果的呢？

我还要美化和加一些功能，还有不清楚的会继续请教你的哈~

Answer 2

首先，用timer让一个TImage移动是很容易的，主要看你要让图片怎么移，是移一条直线，还是全屏乱移，每次移动的距离有没有限制之类的，这些是要涉及到一些随机算法的，你具体把要求再补充下

Answer 3

是不是手动拖动那个图片(Image控件)呢?
如果是的话,可以设置image控件的move事件
如果是代码使用图片自动移动的话,直接在timer控件里写代码,按延时时间使image移动就行了