随笔 - 110  文章 - 28 评论 - 26 

留言簿(1)

随笔分类(103)

随笔档案(110)

文章分类(25)

文章档案(28)

新闻档案(3)

友情连接

  • 小蜜蜂
  • 马氏膏药网
  • 淋巴结肿大,淋巴结核,淋巴结炎 乳腺增生,小叶增生 颈椎病,腰椎病,腰间盘突出 马氏淋巴消炎贴,马氏增生散结贴,马氏关节肌肉贴
  • 黑客基地
  • 全球最大的黑客门户网站

最新随笔

积分与排名

  • 积分 - 146509
  • 排名 - 44

最新评论

阅读排行榜

评论排行榜

如 果你运行一个非常耗时的循环,那么在这个循环结束前,你的程序可能不会响应任何事件,你按按钮没有反应,程序设置无法绘制窗体,看上去就如同死了一样,这 有时不是很方便,例如于终止循环的机会都没有了。这时你就可以在循环中加上这么一句,每次程序运行到这句时,程序就会让系统响应一下消息,从而使你有机会 按按钮,窗体有机会绘制


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 小叶子 阅读(810) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。

笔记和文章,可能抄袭,只为学习,请原谅