Application.ProcessMessages
2017-06-19 17:48
169 查看
//如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着. procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to MaxInt do begin Text := IntToStr(i); end; end; //即使这样也无济于事, 因为在循环期间你执行不了 Button2Click var b: Boolean; procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin b := True; for i := 0 to MaxInt do begin if b then Text := IntToStr(i) else Exit; end; end; procedure TForm1.Button2Click(Sender: TObject); begin b := False; end; //如果在循环期间... for i := 0 to MaxInt do begin if b then Text := IntToStr(i) else Exit; {看看还有其他什么事情发生} end; //Application.ProcessMessages 就是干这个的! var b: Boolean; procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin b := True; for i := 0 to MaxInt do begin if b then Text := IntToStr(i) else Exit; Application.ProcessMessages; {!} end; end; procedure TForm1.Button2Click(Sender: TObject); begin b := False; end;
相关文章推荐
- Application.ProcessMessages; 的重要性
- Application.ProcessMessages
- Application.ProcessMessages
- 复制文件时,如何显示进度条(使用BlockRead函数读取数据,并插入application.ProcessMessages)
- Application.ProcessMessages的作用
- ttimer 控件和 application.processmessages 导致的消息列表溢出。
- Application.ProcessMessages
- Application.ProcessMessages
- Application.ProcessMessages
- Delphi 2010,在主窗体中使用Application.ProcessMessages提示错误的解决办法
- DELPHI 中的Delay函数,利用GetTickCount和Application.ProcessMessages构建
- Application.ProcessMessages的用法意义
- Application.ProcessMessages
- Application.ProcessMessages
- *Application.ProcessMessages用法
- Application生命周期及Process进程
- killProcess can lead to restart application!
- Application.ProcessMessage作用
- 3 Ways to Kill an Application/Activity/Process in Android
- VC里的Application.ProcessMessage()功能类似的函数