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.