Delphi 线程中同步不卡死

二虎子

已于 2023-04-10 21:45:36 修改

阅读量496

点赞数

分类专栏： Delphi 文章标签：开发语言

于 2023-04-10 21:41:05 首次发布

本文链接：https://blog.youkuaiyun.com/chingming135/article/details/130070548

版权

Delphi 专栏收录该内容

3 篇文章

订阅专栏

该代码示例展示了如何在多线程环境中处理事件。当`ASynchronizedEvents`为真时，如果当前线程不是主线程，它会使用`TThread.Synchronize`进行同步调用。否则，直接执行`AThreadProc`。在`Button6Click`事件中，创建了一个匿名线程来执行循环任务，每个迭代后调用`HandleEvent`更新UI。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure HandleEvent(ASynchronizedEvents: Boolean; AThreadProc: TThreadProcedure);
begin
if ASynchronizedEvents and Assigned(WakeMainThread) and
(System.MainThreadID <> TThread.CurrentThread.ThreadID) then
TThread.Synchronize(TThread.CurrentThread, AThreadProc)
else
AThreadProc;
end;

procedure TMyDllForm1.Button6Click(Sender: TObject);
begin
// 备用代码
TThread.CreateAnonymousThread(
procedure
var i:integer;
begin
for I := 1 to 100 do
begin
sleep(100);
HandleEvent(false,
procedure
begin
Label3.Caption:=i.ToString;
end);
end;
end).Start;
end;