线程中刷新界面 报错,求教!
Synchronize(FillValue2CheckTree);
procedure FillValue2CheckTree;
begin
FCheckTree.Items.BeginUpdate;
try
FCheckTree.Refresh;
finally
FCheckTree.Items.EndUpdate;
end;
end;
线程运行时
FCheckTree.Items.BeginUpdate;
这句经常报错 ,我估计 的 多个线程资源 共享时的问题,
我 加了 锁也不行 ,想请教下高手 应该如何处理
self.FClientLock.Acquire;
try
try
FCheckTree.Items.BeginUpdate;
except
on e: exception do
ShowMessage('错误信息2:' + e.Message);
end;
try
FCheckTree.Refresh;
finally
FCheckTree.Items.EndUpdate;
end;
finally
self.FClientLock.Release;
end;