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

yangbiao 2006-09-07 03:18:30
我想用类似 images的控件,里面画一张图,然后用timer 定时控制

往右移动,到800的时候,再往左移动...现在是往左移动不了.

有谁写个DEMO,给个好算法.....

先谢谢了,再线等之,OK了给分....
...全文
185 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
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;

先要设置一个方向的变量
回复
yangbiao 2006-09-07
能否请楼上兄台说的详细点???

一夜间我回到了菜鸟时代....
回复
swimming8243 2006-09-07
ontime:
begin
if 向右移 then
left + 1
else
left - 1;
if 800 then not 向右移;
end;

向右移 是一个bool
回复
postren 2006-09-07
向左向右移动都一样
回复
postren 2006-09-07
为什么向左移动不了呢?
回复
发动态
发帖子
GAME,图形处理/多媒体
创建于2007-08-02

1162

社区成员

Delphi GAME,图形处理/多媒体
申请成为版主
社区公告
暂无公告