下面图片运动的时候我想让它停止该怎么做?

weige250 2005-03-23 04:05:26
for i:=0 to 200 do
begin

image2.Left:=image2.Left+1;
image2.Top:=image2.Top+1;
sleep(10);
application.ProcessMessages;
end
...全文
40 点赞 收藏 4
写回复
4 条回复
皮皮猪头 2005年03月23日
恩,同意楼上的方法
回复 点赞
ztenv 2005年03月23日
其实最好不要用image,用form1.canvas.draw()就可以了,这样每一次画出后,隔一段时间擦除,再重新画,很快,不会闪动,如果有兴趣就试试吧
回复 点赞
ztenv 2005年03月23日
楼上的吧,
回复 点赞
laiqinghe 2005年03月23日
procedure Tssxsfrm.Button2Click(Sender: TObject);
begin
moveflag:=not moveflag;
end;

for i:=0 to 200 do
begin
if moveflag then begin
image2.Left:=image2.Left+1;
image2.Top:=image2.Top+1;
sleep(10);
application.ProcessMessages;
end;
end
回复 点赞
发动态
发帖子
语言基础/算法/系统设计
创建于2007-08-02

3418

社区成员

3.3w+

社区内容

Delphi 语言基础/算法/系统设计
社区公告
暂无公告