我可以在工作线程中执行TDataSet.DisableControls而不用Synchronize（）包装它吗？

Question

First of all, I am not sure that it is a good design to allow worker thread to disable controls. However, I am curious can I do it safely without synchronization with GUI?

The code in TDataSet looks like this:

procedure TDataSet.DisableControls;
begin
  if FDisableCount = 0 then
  begin
    FDisableState := FState;
    FEnableEvent := deDataSetChange;
  end;
  Inc(FDisableCount);
end;

So it looks safe to do. The situation would be different in case of EnableControls. But DisableControls seems to only increase lock counter and assigning event which is fired up during EnableControls.

What do you think?

Answer 1

It looks safe to do so, but things may go wrong because these flags are used in code that may be in the middle of being executed at the moment you call this method from your thread.

I would Synchronise the call to DisableControls, because you want your thread to start using this dataset only if no controls are using it. The call to EnableControls can be synchronised too, or you can post a message to the form using PostMessage. That way, the thread doesn't have to wait for the main thread.

But my gut feelings tells me that is may be better to not use the same dataset for the GUI and the thread at all.

Answer 2

Without having looked up the actual code: It might be safe, as long as you can be sure that the main thread currently does not access FDisableCount, FDisableState and FEnableEvent. There is the possibility of a race condition here.

I would still recommend that you call DisableControls from within the main thread.