System.Messaging.pas例子

System.Messaging.pas例子

调度管理信息。

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

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

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

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

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

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.