Submit My Question - Recent Questions - Recent Answer
Msdn China Tech >> Delphi >> GAME，图形处理/多媒体

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

我想用类似 images的控件,里面画一张图,然后用timer 定时控制
往右移动,到800的时候,再往左移动...现在是往左移动不了.
有谁写个DEMO,给个好算法....
先谢谢了,再线等之,OK了给分...
[139 byte] By [yangbiao-人品好,代码写的也好] at [2008-5-24]
«« 菜鸟问个初学者问题: 当满足一个条件的时候,如何从while循环里退出.
»» 词
# 1
为什么向左移动不了呢？
postren-小虫宝宝出生，真忙 at 2007-10-19 > top of Msdn China Tech,Delphi,GAME，图形处理/多媒体...
# 2
向左向右移动都一样
postren-小虫宝宝出生，真忙 at 2007-10-19 > top of Msdn China Tech,Delphi,GAME，图形处理/多媒体...
# 3
ontime:
begin
if 向右移 then
left + 1
else
left - 1;
if 800 then not 向右移;
end;

向右移 是一个bool
swimming8243-swimming at 2007-10-19 > top of Msdn China Tech,Delphi,GAME，图形处理/多媒体...
# 4
能否请楼上兄台说的详细点?

一夜间我回到了菜鸟时代...
yangbiao-人品好,代码写的也好 at 2007-10-19 > top of Msdn China Tech,Delphi,GAME，图形处理/多媒体...
# 5
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;

先要设置一个方向的变量
zhuminghua at 2007-10-19 > top of Msdn China Tech,Delphi,GAME，图形处理/多媒体...
# 6
谢谢 swimming8243 的提示...

结帖....
yangbiao-人品好,代码写的也好 at 2007-10-19 > top of Msdn China Tech,Delphi,GAME，图形处理/多媒体...
# 7
同时也谢谢 zhuminghua
yangbiao-人品好,代码写的也好 at 2007-10-19 > top of Msdn China Tech,Delphi,GAME，图形处理/多媒体...
Delphi
GAME，图形处理/多媒体

Delphi Hot Topic

Delphi New Topic

Delphi

Java / MSDN / Linux Tech / PHP Tech / MSDN DotNet / MSDN TECH / Health Library / Programmers Tech / visual basic Tech / Developer Tech / Ipod faqs / Msdn China Tech

Site Classified