TMessageManager/SendMessage

[TiGü]

Delphi-Quellcode:

 MessageManager := TMessageManager.DefaultManager;
  SubscriptionId := MessageManager.SubscribeToMessage(TMessage<UnicodeString>,
    procedure(const Sender: TObject; const M: TMessage)
    begin
      if TThread.Current.ThreadID <> MainThreadID then
        raise EProgrammerNotFound.Create('Ich komme aus dem Thread-Kontext des Tasks, also muss ich den Zugriff auf das Label lblStatus im Mainthread synchronisieren!');

      lblStatus.Text := (M as TMessage<UnicodeString>).Value;
    end);