如 果你运行一个非常耗时的循环，那么在这个循环结束前，你的程序可能不会响应任何事件，你按按钮没有反应，程序设置无法绘制窗体，看上去就如同死了一样，这 有时不是很方便，例如于终止循环的机会都没有了。这时你就可以在循环中加上这么一句，每次程序运行到这句时，程序就会让系统响应一下消息，从而使你有机会 按按钮，窗体有机会绘制
i:integer;
b:boolean;
procedure TForm1.Button1Click(Sender: TObject);
begin
b:=true;
for i:=0 to maxint do
begin
if b then
form1.Caption:='数字'+inttostr(i)
else
exit;
Application.ProcessMessages
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
b:=false;
end;
posted on 2008-12-30 21:01
小叶子 阅读(809)
评论(0) 编辑 收藏 引用