Lazarus子窗体线程Synchronize无法更新UI元素问题求解

你代码的核心问题是线程操作的Form2实例和你实际显示的Form2实例不是同一个对象：

• 你在Form1的Button1Click中声明了局部变量settings，创建的TForm2实例赋值给了这个局部变量，你显示的是这个局部实例的窗体。
• 但Unit2中TSecondPortThread的所有逻辑都是操作Unit2声明的全局变量Form2，这个全局变量并没有被赋值为你创建的settings实例，因此线程修改的是一个不可见的窗体对象的属性，自然你看到的窗体Shape不会变色。

方案1：使用全局Form2实例（快速修复） #

1. 先打开项目的project.lpr文件，删除自动创建Form2的代码，避免启动时自动生成多余的Form2实例。
2. 修改Form1中打开子窗体的代码，直接给全局Form2赋值：

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 避免重复创建实例
  if not Assigned(Form2) then
    Form2 := TForm2.Create(Form1);
  Form2.Show;
end;

方案2：传参绑定窗体实例（规范写法，推荐） #

不依赖全局变量，创建线程时将当前窗体实例传入线程，支持多Form2实例同时使用互不干扰：

1. 修改TSecondPortThread类定义，新增持有窗体实例的属性和自定义构造方法：

type
  TSecondPortThread = class(TThread)
  private
    FTargetForm: TForm2;
    procedure Synchronous;
  protected
    procedure Execute; override;
  public
    constructor Create(TargetForm: TForm2; CreateSuspended: Boolean); reintroduce;
  end;

2. 实现构造方法，接收窗体实例：

constructor TSecondPortThread.Create(TargetForm: TForm2; CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FTargetForm := TargetForm;
  FreeOnTerminate := True; // 线程结束自动释放，避免内存泄漏
end;

3. 替换线程逻辑中所有全局Form2的引用为传入的窗体实例：

procedure TSecondPortThread.Synchronous;
begin
  writeln('Child Synchronous Method');
  if FTargetForm.what then
      FTargetForm.Shape1.Brush.Color := clRed
  else
      FTargetForm.Shape1.Brush.Color := clLime;
end;

procedure TSecondPortThread.Execute;
begin
  // 新增Terminated判断，窗体关闭时可主动终止线程避免访问野指针
  while not Terminated do begin
        Delay(500);
        Synchronize(@Synchronous);
        FTargetForm.what := not FTargetForm.what;
  end;
end;

4. 修改Form2按钮点击逻辑，将当前窗体实例传入线程：

procedure TForm2.Button1Click(Sender: TObject);
begin
    TSecondPortThread.Create(Self, False);
end;

• 窗体关闭时需要主动终止正在运行的线程，避免线程访问已经释放的窗体对象抛出异常。
• 不要同时使用局部实例和全局实例操作同一个窗体类，避免实例混淆的问题。

内容的提问来源于stack exchange，提问作者GeneCode