Question

delphi7 图片随机移动

小球追踪控制仿真 要求： （1）设计机器人追小球的界面； （2）判断小球位于机器人的

（3）若小球移动则机器人跟着小球跑。

Answer 1

直接用Delphi7自带的Image类就可以。
在Additional里面的第5个就是Image。把它拖动到Form里。
然后左下角有个Object Inspector窗口，在Properties里面设置好对应的属性。
在Additional右边system里有一个Timer，用它来控制图片的移动。

追问

这些我会。。
但是我们老师非要让小球随机移动，，随即移动的代码不会写啊。。
求教！！

追答

开始设置一个初速度，然后每一秒钟作如下事件：
1：if rand(10)=0 then 改变速度的方向和大小。
2：将图片的坐标按照速度修改为新的坐标。

Answer 2

MARK

Answer 3

image1.left:=image1.left+random(1)*10;
image1.height:=image1.left+random(1)*10;