16,741
社区成员
发帖
与我相关
我的任务
分享下面图片运动的时候我想让它停止该怎么做？
for i:=0 to 200 do
begin
image2.Left:=image2.Left+1;
image2.Top:=image2.Top+1;
sleep(10);
application.ProcessMessages;
end
begin
image2.Left:=image2.Left+1;
image2.Top:=image2.Top+1;
sleep(10);
application.ProcessMessages;
end
...全文
请发表友善的回复…
发表回复
herman~~ 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
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
