本文整理自网络，侵删。
Application.ProcessMessages的作用是让Application去处理消息队伍中的消息。
举例说明它的用处：
你有一程序，要做一循环，
for i:= 0 to query1.recordcount-1 do
begin
做某事；
endl;
运行的时候你会发现，当转到另一程序再转回来的时候，窗体变发白了，
除了那个DBGRID。这是为什么，这是因为当你转回自己的程序的时候，系统向你发出了
FOCUS消息（不好意思，具体什么消息忘了），一般情况下，程序接收到此消息的时候
会重画先前被挡住的范围（消息里面会告诉程序要被挡住了那些范围）
但你的程序由于正在循环中，来不及处理这个消息，所以除了DBGRID（因为当记录跳动的时候
DBGRID会重画自己）处别的部份都是白的，
这时候你可以改一下你的循环那部份的代码，如下：for i:= 0 to query1.recordcount-1 do
begin
做某事；
Application.ProcessMessages
end;
使程序在做完一次循环后，就去处理它收到的消息。虽然不能实时响应系统消息，至少
也不会延迟太长时间。
至于Application.OnException，它是Application事件。
当程序有异常时会触发此事件的产生。
----------------------------------------s
//如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着.
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;
相关阅读 >>
Delphi 解决idtcpclient和idtcpserver通信中文乱码问题
更多相关阅读请进入《Delphi》频道 >>
