频道分类

delphi System.Messaging.pas例子

作者:admin 来源: 日期:2021/2/20 10:01:05 人气: 标签:

 
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 数字转Excel字母列序号下一篇:没有资料