错误:Thread Error: 拒绝访问。 (5)

解决:一般都是线程遇到异常没有捕捉,使其终止了Execute方法的执行。

下面是例子。

问题地址:

http://www.delphi2007.net/DelphiVCL/html/delphi_200603081044097105.html

正确:

    while True do
    begin
      try

          Synchronize(Form1.desplay);
      except
         Synchronize(Form1.desplayError);
      end;
      Sleep(1000);
    end;