System.Messaging.pas例子

System.Messaging.pas例子

调度管理信息。

TMessageManager是负责应用程序消息处理的类。它定义了一个作为应用程序范围内通知中心的对象。

您可以创建TMessageManager的许多实例，但是这个类也可以作为一个单例来工作。你可以调用TMessageManager。使用DefaultManager来访问TMessageManager的实例，而不是实例化自己的实例并跟踪它们。 

一旦您有了TMessageManager的实例，您就可以调用TMessageManager。订阅订阅特定类型的消息的消息处理方法。消息处理方法可以是对象的方法或匿名方法。在向消息类型订阅方法之后，每次都有一个对TMessageManager的调用。使用目标类型的消息，将调用订阅的方法。

要从消息类型中取消订阅以前订阅的方法，请调用TMessageManager.Unsubscribe。 

要将消息广播给消息管理器中订阅消息类型的所有方法，请创建TMessage的实例或子类，并调用TMessageManager.SendMessage。

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  System.Messaging, FMX.Edit;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
var
  MessageManager: TMessageManager;
  Message: TMessage;
begin
  MessageManager := TMessageManager.DefaultManager;
  Message := TMessage<UnicodeString>.Create(Edit1.Text);
  MessageManager.SendMessage(Sender, Message, True);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  SubscriptionId: Integer;
  MessageManager: TMessageManager;
begin
  MessageManager := TMessageManager.DefaultManager;
  SubscriptionId := MessageManager.SubscribeToMessage(TMessage<UnicodeString>, procedure(const Sender: TObject; const M: TMessage)
  begin
    ShowMessage((M as TMessage<UnicodeString>).Value);
  end);
end;

end.