如何在GUI更新期间保持Delphi应用程序的响应性？
这个问题是关于在长时间运行的任务（大多数情况下是几秒钟）中保持GUI的响应性 我广泛使用线程和任务模式在后台线程中执行昂贵的任务。但是需要一些时间的GUI更新呢？例如，填充大字符串网格或树视图？线程在这里没有帮助，因为无论如何都需要与主线程同步 我知道如何在GUI更新期间保持Delphi应用程序的响应性？,delphi,user-interface,Delphi,User Interface,这个问题是关于在长时间运行的任务（大多数情况下是几秒钟）中保持GUI的响应性 我广泛使用线程和任务模式在后台线程中执行昂贵的任务。但是需要一些时间的GUI更新呢？例如，填充大字符串网格或树视图？线程在这里没有帮助，因为无论如何都需要与主线程同步 我知道Application.ProcessMessages的问题，但目前它似乎是在GUI更新方法中调用ProcessMessages的唯一解决方案 有更好的主意吗？看看。您试用过Indy的防冻成分吗？您的应用程序有什么问题吗？Application.P
Application.ProcessMessagesProcessMessages有更好的主意吗？看看。您试用过Indy的防冻成分吗？您的应用程序有什么问题吗？Application.ProcessMessages方法正是针对这种情况的。Application.ProcessMessages的问题在于如下代码：
repeat
Application.ProcessMessages;
until SomethingHappens;
repeat
Application.HandleMessage;
until SomethingHappens;
这会将处理器时间分配给其他线程。单个Application.ProcessMessages调用（不在循环中）正常。填充网格、列表、数据集等时，调用BeginUpdate/EndUpdate DisableControls/EnableControls。这会节省你的时间。我还有一个线程可以进行一些计算，但是GUI速度很慢，直到我调用了正在修改的数据集上的DisableControls，这些数据集由于控件位于另一个选项卡上而不可见
此外，在更新控件时，准备好所需的所有数据，这样您就可以填写列表，而无需进行会减慢速度的计算。如果您只想处理绘制消息，而不想处理其他内容：请使用以下内容，而不是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;
在我看来，如果GUI更新是瓶颈（即使按照@the_Fox的建议使用BeginUpdate/EndUpdate），那么是时候重新考虑使用的GUI控件了。standart网格、treeviews和列表框并不是简单地用于处理大量项目。有许多表演第三方控制都是免费的和商业的
对于初学者，如果瓶颈在网格、树视图或列表框上下文中，请查看VirtualTreeview。我认为“多线程”标记不适用于该问题。这不是唯一的问题。你也可以很容易地得到重入问题之类的东西。重入跟踪是应用程序逻辑的问题。你不能责怪一般的消息处理方法。当然，在GUI线程中执行耗时的操作时，某些事件的处理方式应该有所不同。我知道这一点，现在我正在使用
ProcessMessagesOnCollapsedOnExpanding