delphi中application.docVIP

delphi中cessmessages的作用 2007-04-22 20:31 procedure TForm1.Button2Click(Sender: TObject);varI, J, X, Y: Word;beginI := 0;J := 0;while I 64000 dobegin??? Randomize;??? while J 64000 do??? begin????? Y := Random(J);????? Inc(J);????? Application.ProcessMessages;??? end;??? X := Random(I);??? Inc(I);end;Canvas.TextOut(10, 10, The Button2Click handler is finished);end;代码中红色的一行的作用：如 果你运行一个非常耗时的循环，那么在这个循环结束前，你的程序可能不会响应任何事件，你按按钮没有反应，程序设置无法绘制窗体，看上去就如同死了一样，这 有时不是很方便，例如于终止循环的机会都没有了。这时你就可以在循环中加上这么一句，每次程序运行到这句时，程序就会让系统响应一下消息，从而使你有机会 按按钮，窗体有机会绘制。 HYPERLINK /del/archive/2008/02/16/1070477.html Application.ProcessMessages //如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着. 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;