码迷,mamicode.com
首页 > 移动开发 > 详细

Application.ProcessMessages

时间:2018-07-29 13:07:28      阅读:152      评论:0      收藏:0      [点我收藏+]

标签:integer   click   max   color   object   bool   执行   col   span   

//如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着.
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

标签:integer   click   max   color   object   bool   执行   col   span   

原文地址:https://www.cnblogs.com/jijm123/p/9384730.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!