Delphi多线程学习（10）：Label(VCL)同步的问题

上文中，多线程同步主窗体的Label的Caption属性值，发现一个问题：使用Synchronize用于同步的时候，主窗体好像死掉一样；而直接用子程序为Label的引用赋值，则有时会出现“Canvas  does not allow drawing”错误。书上说VCL同步一定要用Synchronize，而不能直接访问。

    测试：

{主窗体} unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Label1: TLabel; Button1: TButton; Label2: TLabel; Label3: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses TestThread; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin TTestThread.Create(Label1); //TTestThread.Create(Label2); //TTestThread.Create(Label3); end; end.{多线程类} unit TestThread; interface uses Classes,StdCtrls; type TTestThread = class(TThread) private { Private declarations } FLabel:TLabel; Fstr:string; procedure UpdateLabel; protected procedure Execute; override; public constructor Create(Lab:TLabel); end; implementation uses Unit2,SysUtils,windows; { TTestThread } constructor TTestThread.Create(Lab: TLabel); begin FLabel:=Lab; Inherited Create(False); FreeOnTerminate:=True; end; procedure TTestThread.Execute; var i:Integer; begin { Place thread code here } for i := 0 to 20000 do begin if Not Terminated then begin Fstr:=Format('线程ID：%d,第%d个循环',[GetCurrentThreadID,i]); //UpdateLabel; Synchronize(UpdateLabel); end; end; end; procedure TTestThread.UpdateLabel; begin FLabel.Caption:=Fstr; end; end.

经过测试，只创建一个线程，用Synchronize同步主窗体的一个Label，那么程序无问题，可以见到同步的过程。当同时创建三个线程，用Synchronize同时同步主窗体的三个Label，那么主窗体好似死了一样，过了好久才显示最后循环的同步值。（我的机子很差，三个线程就卡了，你可以多创建几个线程测试卡死的效果。）

     可能原因，因为Synchronize中的代码是在主窗体线程中执行的，同时几个线程要求主窗体执行显示Label，所以主窗体可能忙不过来。

     解决办法：在Synchronize(UpdateLabel);语句之后加上Sleep(0);，那么可以了。Sleep(0)是指CPU交出当前线程的执行权，让CPU去执行其他线程。也就是放弃当前线程的时间片，转而执行其他线程。一般来说，如果当前线程比较耗时比较占CPU资源，可以在结尾处加上Sleep(0), 这样效率会得到大大的提高。

     加上Sleep(00测试了一下，完全成功没问题。 所以前面几篇的代码中，应该照此修改。

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/asciil/archive/2009/07/17/4356011.aspx