随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1267万

随笔分类 -  TApplication

Application.ProcessMessages
摘要://如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着. procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to MaxInt do begin Text := IntToStr(i); end; end; //即使这样也无济于事, 因为在循环期... 阅读全文
posted @ 2008-02-16 10:55 万一 阅读(12866) 评论(11) 推荐(0) 编辑



点击右上角即可分享
微信分享提示