我可以将Delphi TThread.Synchronize()本地移动到VCL表单以从主线程或工作线程调用吗？

Question

我正在使用CreateAnonymousThread作为工作任务,当我开始使用它时,我在整个声明中使用了Synchronize,根据文档示例,例如:

procedure Txxx.RunWorker;
begin
     FExecutionThread := TThread.CreateAnonymousThread(procedure ()
     begin

        TThread.Synchronize (TThread.CurrentThread,
          procedure ()
          begin
            // Here before worker stuff
            NotifyBeforeWorkerStuff; 

          end);

        // Do worker stuff

        TThread.Synchronize (TThread.CurrentThread,
          procedure ()
          begin
            // Here after worker stuff
            NotifyAfterWorkerStuff;
          end);
      end);

      FExecutionThread.Start;
    end;
end;

如您所见,在此线程中,我向我的应用程序的各个部分启动事件通知,包括VCL表单(NotifyBeforeWorkerStuff等).后来,我看到我可以将Synchronize()更多地本地移动到每个VCL表单,接近实际需要它更新(非安全)VCL控件的点:

    procedure TSomeVCLForm.ReceiveNotification;
    begin
      TThread.Synchronize (TThread.CurrentThread,
          procedure ()
          begin
            Label1.Caption := GetSomeStringFunction;
          end);
     end;

只要我接收来自主线程或工作线程的通知,工作线程就会变得更简单:

   procedure Txxx.RunWorker;
   begin
     FExecutionThread := TThread.CreateAnonymousThread(procedure ()
       begin

         NotifyBeforeWorkerStuff; 

         // Do worker stuff

         NotifyAfterWorkerStuff;

       end);

     FExecutionThread.Start;
   end;

关于这是否正确,我有几个问题:

1. 我的通知可能来自工作线程,也来自主线程(例如,从按下按钮导出).因此,当从主线程调用VCL表单上的"ReceiveNotification"时,是否允许如上所述调用TThread.Synchronize？在该XE8文档意味着没有了,但是检查System.Classes这看起来不错,它工作正常.
2. 当Label1.Caption从GetSomeStringFunction中获取字符串时,在"ReceiveNotification"内,是否正确,即使调用来自工作线程,也绝对不需要在该函数中进行锁定？

谢谢你的建议.

Answer 1

文件说:

警告:不要在主线程内调用Synchronize.这可能导致无限循环.

我认为文档是完全错误的.XE8中的实现检查当前线程是否是主线程.如果是,则直接执行该方法.

不需要锁定,ReceiveNotification因为GetSomeStringFunction始终在主线程上执行调用.