一个很简单的问题,头疼不思其解!

Question

我想用类似 images的控件,里面画一张图,然后用timer 定时控制往右移动,到800的时候,再往左移动...现在是往左移动不了.有谁写个DEMO,给个好算法.....先谢谢了,再线等之,OK了给分....

Answer 1

ontime:
begin
  if 向右移 then
    left + 1
  else
    left - 1;
  if 800 then not 向右移;
end;向右移 是一个bool

Answer 2

var i: integer =1;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (Image1.Left > 800) or (Image1.Left <= 0) then i:=-i;
  Image1.Left:=Image1.Left+10*i;
end;先要设置一个方向的变量

Answer 3

谢谢  swimming8243 的提示....结帖.....