在Delphi FMX中,可以使用TThread.Synchronize方法来实现线程同步。TThread.Synchronize方法接受一个匿名方法作为参数,该方法将在主线程上下文中执行。具体的用法如下所示:
TMyThread = class(TThread)
private
procedure UpdateUI;
protected
procedure Execute; override;
end;
procedure TMyThread.Execute;
begin
// 执行耗时操作
// 调用线程同步方法更新UI
TThread.Synchronize(nil, UpdateUI);
end;
procedure TMyThread.UpdateUI;
begin
// 在主线程中更新UI
end;
在TMyThread的Execute方法中,可以执行一些耗时的操作。然后使用TThread.Synchronize方法调用UpdateUI方法,该方法将在主线程上下文中执行,以更新UI。
需要注意的是,由于TThread.Synchronize方法会在主线程上下文中执行,因此UpdateUI方法中不能执行耗时操作,以免阻塞主线程的执行。