为什么使用了Application.ProcessMessages后窗口无法关闭
测试程序是这样的:
Form1中有个5秒定时器,定时器事件代码如下:
var
I: Integer;
begin
tmr1.Enabled:=False;
Caption:='定时器事件执行中...';
try
for I := 0 to 1000 do // Iterate
begin
Sleep(10);
Application.ProcessMessages;
end; // for
finally
tmr1.Enabled:=true;
Caption:='定时器事件执行完毕';
end;
还有个按钮,按钮点击事件中执行Form2.ShowModal(当然要添加Form2,并在Form1中UsesForm2)
好了,下面测试一下:
程序运行后,过5秒即定时器事件处理中,打开Form2后,在关闭Form2正常
如果在启动后5秒内,打开Form2后,再关闭Form2就无法立即关闭了,必须在定时器事件处理完毕后方可正常关闭????????
所以在编写程序中,尽量避免后台程序中长时间执行Application.ProcessMessages。
除此之外,还有一种情况就是没有显式使用此语句而是使用系统功能时,系统默认使用此语句来实现界面的相应:例如以前在程序中使用TIdTime完成了一个定时同步时间,就添加了TIdAntiFreeze组件(内部使用ProcessMessages),使用中由于未连接服务端经常导致窗口无法关闭,无奈只好改写了TIdTime组件,在Connect时指定超时参数为1000(1秒)
写了这些,1是问问如何解决此问题 2 是提醒大家,避免以后出现类似的问题