一个函数的问题：

Question

Application.ProcessMessages;
此函数是什么意思，用作什么地方，能给例子作谢谢。

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  I, J, X, Y: Word;
begin
  I := 0;
  J := 0;
  while I < 64000 do
  begin
    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;

Answer 2

Application.ProcessMessages;
可以用在任何地方,一般用在你在相当长的程序处理事件中,和循环处理中,特别是在需要用户长时间等待的时候.
可以避免你的程序看起来象翘翘了.