delphi 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.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 让程序支持外来文件拖放的单元文件

Delphi dbgrid 表格自适应宽度

Delphi通过代码实现模拟按键的函数

Delphi窗口显示和关闭的时候出现动画效果

Delphi 软件welcome窗口代码

Delphi idhttp控件的防止异常的处理

Delphi编程禁止用户关闭操作系统

Delphi concat 连接两个或多个字符串为一个字符串

Delphi getcurrentdir 获取当前文件夹

Delphi fdquery遍历输出 json

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...