这个问题是关于在长时间运行的任务（大多数情况下是几秒钟）期间保持 GUI 响应。
我广泛使用线程和任务模式在后台线程中执行昂贵的任务。但是需要一些时间的 GUI 更新呢？例如，填充大的字符串网格或树视图？线程在这里没有帮助，因为无论如何都需要与主线程同步。
我知道Application.ProcessMessages 的问题，但目前它似乎是将调用ProcessMessages 放在GUI 更新方法中的唯一解决方案。
有更好的想法吗？
【问题讨论】：
标签： delphi user-interface
IMO 如果 GUI 更新是瓶颈（即使 BeginUpdate/EndUpdate 像 @The_Fox 建议的那样使用），那么是时候重新考虑使用的 GUI 控件了。标准网格、树视图、列表框并不是为了处理大量项目而简单地切割的。为此目的，有许多免费和商业的高性能第三方控件。
首先，如果瓶颈在网格、树视图或列表框上下文中，请查看 VirtualTreeview。
【讨论】：
填充网格、列表、数据集等时，调用 BeginUpdate/EndUpdate DisableControls/EnableControls。这将节省您的时间。我也有一个线程进行一些计算，但是 GUI 很慢，直到我对正在修改且不可见的数据集调用 DisableControls，因为控件位于另一个选项卡上。
此外，在更新控件时，请准备好所有需要的数据，这样您就可以填写您的列表，而无需进行会减慢速度的计算。
【讨论】：
OnCollapsed 和OnExpanding 将有助于加快标准树视图的速度。
在您的情况下 Application.ProcessMessages 有什么问题？ Application.ProcessMessages 方法正是针对这种情况的。 Application.ProcessMessages 的问题是这样的代码：
repeat
Application.ProcessMessages;
until SomethingHappens;
这很糟糕，因为它是无用的 CPU 负载，应该替换为
repeat
Application.HandleMessage;
until SomethingHappens;
将处理器时间留给其他线程。单个 Application.ProcessMessages 调用（不在循环中）是可以的。
【讨论】：
ProcessMessages。不知道是不是有什么问题……所以才问的。
看看ActiveSleep。
【讨论】：
如果您只想处理绘制消息而不是其他：使用以下内容而不是 Application.ProcessMessages：
procedure ProcessPaintMessages;
var
Msg: TMsg;
i: Integer;
begin
i := 0;
repeat
if Windows.PeekMessage(Msg, 0, 0, 0, PM_REMOVE or (QS_PAINT shl 16)) then begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end else Break;
Inc(i);
until i > 1000; // Breakout if we are in a paint only loop!
end;
【讨论】：
您试用过 Indy 的 AntiFreeze 组件吗？
【讨论】：