....
BreakFlag :=False;
while True do
Begin
Application.ProcessMessages;//让其它能使用
if BreakFlag then Break;
...
while True do
Application.ProcessMessages;//让其它能使用
if BreakFlag then Break;
....
end;
end;
在其它地方,如一个按钮点击事件中跳出循环
BreakFlag :=True;//就OK了
BreakFlag :=False;
while True do
Begin
Application.ProcessMessages;//让其它能使用
if BreakFlag then Break;
...
while True do
Application.ProcessMessages;//让其它能使用
if BreakFlag then Break;
....
end;
end;
在其它地方,如一个按钮点击事件中跳出循环
BreakFlag :=True;//就OK了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货