1,185
社区成员
发帖
与我相关
我的任务
分享一个很简单的问题,头疼不思其解!
我想用类似 images的控件,里面画一张图,然后用timer 定时控制
往右移动,到800的时候,再往左移动...现在是往左移动不了.
有谁写个DEMO,给个好算法.....
先谢谢了,再线等之,OK了给分....
往右移动,到800的时候,再往左移动...现在是往左移动不了.
有谁写个DEMO,给个好算法.....
先谢谢了,再线等之,OK了给分....
...全文
请发表友善的回复…
发表回复
yangbiao 2006-09-07
- 打赏
- 举报
同时也谢谢 zhuminghua
yangbiao 2006-09-07
- 打赏
- 举报
谢谢 swimming8243 的提示....
结帖.....
结帖.....
zhuminghua 2006-09-07
- 打赏
- 举报
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;
先要设置一个方向的变量
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Image1.Left > 800) or (Image1.Left <= 0) then i:=-i;
Image1.Left:=Image1.Left+10*i;
end;
先要设置一个方向的变量
yangbiao 2006-09-07
- 打赏
- 举报
能否请楼上兄台说的详细点???
一夜间我回到了菜鸟时代....
一夜间我回到了菜鸟时代....
swimming8243 2006-09-07
- 打赏
- 举报
ontime:
begin
if 向右移 then
left + 1
else
left - 1;
if 800 then not 向右移;
end;
向右移 是一个bool
begin
if 向右移 then
left + 1
else
left - 1;
if 800 then not 向右移;
end;
向右移 是一个bool
postren 2006-09-07
- 打赏
- 举报
向左向右移动都一样
postren 2006-09-07
- 打赏
- 举报
为什么向左移动不了呢？
