本文整理自网络，侵删。
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.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, procedure(const Sender: TObject; const M: TMessage)
begin
ShowMessage((M as TMessage).Value);
end);
end;
end.
来源：https://www.cnblogs.com/hnxxcxg/p/14306175.html
相关阅读 >>
Delphi idhashmessagedigest md5用法
Delphi xe8在firemonkey tlistbox中显示图像
Delphi2007-Delphi2010 程序不出现在任务栏的方法
Delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法
更多相关阅读请进入《Delphi》频道 >>
