在Thread中使用EnterCriticalSection更新VCL标签

Question

我是线程新手。我正在使用一个第三方库，该库使用线程，有时会调用我提供的过程。

当线程调用我的过程时，如何更新 TLabel.Caption？

如果我在其他地方调用了InitializeCriticalSection，是否像

  EnterCriticalSection(CritSect);
  GlobalVariable := 'New TLabel.Caption';
  LeaveCriticalSection(CritSect);

然后在我的主线程中一样简单：

  EnterCriticalSection(CritSect);
    Label1.Caption:= GlobalVariable;
  LeaveCriticalSection(CritSect);

但是，如何获取要调用的主线程代码？线程可以使用SendMessage吗？或者是否有一些更好/更简单的方法（.OnIdle 可以检查线程设置的标志？）

谢谢。

Answer 1

关键部分用于序列化对一段代码的访问。对于更新图形用户界面，您应该注意只有主线程才应该更新 GUI 元素。

因此，如果您的线程需要更新 GUI 元素，它应该将其委托给主线程。为此，您可以使用不同的技术：

最简单的一种是在线程代码中使用 Synchronize 方法。当调用 Synchronize 时，您的线程将暂停，您提供给 Synchronize 的代码将在主线程的上下文中执行，然后您的线程恢复。

如果您不希望每次调用该代码段时线程都停止，那么您可以使用 Queue 方法。 Queue 将您的请求发送到目标线程（这里是主线程）的消息队列，因此您的线程不会停止，但 UI 可能不会立即更新，具体取决于主线程消息队列的拥挤程度。

实现此目的的另一种方法是使用 SendMessage 或 PostMessage API 函数将自定义 Windows 消息发送到主线程。在这种情况下，您必须定义一条自定义消息，并在需要更改 UI 元素时将其发送到主线程。您的主线程应该为该类型的消息提供一个消息处理程序，并处理收到的消息。结果与使用 Queue 方法类似。

Answer 2

要使您的代码在主线程中被调用，请查看 TThread.Synchronize。它接受一个方法指针（或者，在 D2009+ 中，一个匿名方法）并负责幕后的所有消息传递，以确保您的代码将在主线程中运行。

Answer 3

您必须确保以安全的方式更新标签。此外，VCL 在应用程序主线程中运行，从其他线程干扰它可能会产生奇怪的结果。即使使用临界区。

所以我的建议是：只使用PostMessage。当调用回调过程时，只需从该过程调用 PostMessage 到主窗体窗口句柄。这将确保标签标题是在主线程的上下文中设置的。

代码示例：

type
  TForm1 = class(TForm)
  private
    procedure OnWMUpdateLabel(var Msg: TMessage); message WM_UPDATE_LABEL;
    procedure MyCallbackProcedure(const Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnWMUpdateLabel(var Msg: TMessage);
begin
  Label1.Caption := SomeVariable;
end;

procedure TForm1.MyCallbackProcedure(const Sender: TObject);
begin
  SomeVariable := 'New Label';
  PostMessage(Handle, WM_UPDATE_LABEL, 0, 0);
end;

但是如果您以这种方式传递字符串，则必须小心。您必须同步对此类变量的访问。或者您可以使用 GlobalAddAtom （有点不推荐使用）或类似的东西。

编辑：

正如梅森已经说过的，您还可以使用同步，它更容易使用。对于你的问题应该完全没问题。

编辑2：

有关如何使用GlobalAddAtom的参考（是的，我之前拼写错误）：

http ://www.delphi3000.com/articles/article_574.asp?SK=

Answer 4

我这样做的方法是让主应用程序线程在表单上使用 TTimer 来检查线程特定值的状态，以查看状态是否已更改，如果是，则更新标签（或其他组件）。 TThread 后代使用带有 Getter 函数的属性来保护对临界区的访问。这样，工作线程就不会被主线程阻碍（Synchronize 会这样做），并且用户在使用 UI 时不会遇到任何延迟。