delphi - 线程同步问题的困惑

Question

今天读到 Zarko Gajic 的文章时，我感到很困惑:

“多线程 Delphi 数据库查询”

文章网址:http://delphi.about.com/od/kbthread/a/query_threading.htm

源代码:http://delphi.about.com/library/weekly/code/adothreading.zip

有了“TCalcThread.Execute”程序的代码，为什么下面的代码不需要放在Synchronize()方法中运行？

Line 173:    ListBox.Clear;  
Line 179:    ListBox.Items.Insert(......);
Line 188:    ListBox.Items.Add('*---------*');
Line 195:    TicksLabel.Caption := 'Ticks: ' + IntToStr(ticks);

这些代码操作VCL组件，与UI更新相关。据我所知，这些操作应该使用线程同步，并由主线程执行。难道是我的知识有缺陷？

Answer 1

这是一种罕见的情况，您可以从 Windows 为您执行线程同步这一事实中受益。原因是对于列表框，项目是使用带有控制特定消息的 SendMessage 来操作的。因此，每个 SendMessage 调用都会确保消息由创建控件的同一线程(尤其是主线程)处理。

就像我说的，这是一个罕见的案例。它还会导致这三个调用中的每一个调用都发生线程切换，这会降低性能。您最好还是使用 Synchronize 强制该代码块在其所属的主线程中运行。它还确保，如果您开始使用内部不使用 SendMessage 的控件，您不会被咬住。