3418
社区成员
3.3w+
社区内容
- 主页
下面图片运动的时候我想让它停止该怎么做？
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
...全文
皮皮猪头 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