不知道从哪个版本开始,Delphi包含了一个System.Messaging单元,实现了观察者模式(也就是发布/订阅模式),运用于消息传递,极大方便了编程。
提供了一个消息管理器TMessageManager,默认实现了一个DefaultManager.一般运用,直接用这个DefaultManager就够了,当然也可以自己实现。
这里的消息可以包含任何东东,看看其消息定义:
TMessage<T> = class (TMessage)
protected
FValue: T;
public
constructor Create(const AValue: T);
destructor Destroy; override;
property Value: T read FValue;
end;
TObjectMessage<T: class> = class(TMessage<T>)
protected
FOwnsObject: Boolean;
public
constructor Create(const AValue: T; AOwnsObject: Boolean = True);
destructor Destroy; override;
end;
如果消息不是对象类型,用TMessage<T>就好,否则用TObjectMessage<T: class> ,比较方便,因为可以选择是不是自动释放(默认是自动释放的constructor Create(const AValue: T; AOwnsObject: Boolean = True);)
运用中,定义消息类继承TMessage<T>或TObjectMessage<T: class> , 要处理消息的类订阅此消息,实现消息处理(回调)方法,格式是:
procedure(const Sender: TObject; const M: TMessage)
提供了2种实现,匿名方法和类方法:
TMessageListener = reference to procedure(const Sender: TObject; const M: TMessage);
TMessageListenerMethod = procedure (const Sender: TObject; const M: TMessage) of object;
订阅方法是:
function SubscribeToMessage(const AMessageClass: TClass; const AListener: TMessageListener): Integer; overload;
function SubscribeToMessage(const AMessageClass: TClass; const AListenerMethod: TMessageListenerMethod): Integer; overload;
发送消息的对象调用
procedure SendMessage(const Sender: TObject; AMessage: TMessage); overload; inline;
procedure SendMessage(const Sender: TObject; AMessage: TMessage; ADispose: Boolean); overload;
ADispose参数指定是不是要自动释放,第一个方法是默认自动释放的。
这里的实现和原来的WINDOW下的窗体类没关系了,可以直接在实例间传递,非常灵活方便。
原来window下的消息内容常常用指针来传递,这下解脱了,因为这个消息管理器可以用于VCL和FMX。
可以在基类窗体和基本业务类中声明一个属性
TBaseForm = class(TForm)
private
FMessageManager: TMessageManager;
public
constructor Create(AOwner: TComponent); override;
property MessageManager: TMessageManager read FMessageManager;
.......
end;
.....
TBaseForm .Create(AOwner: TComponent);
begin
FMessageManager := TMessageManager.DefaultManager;
end;
TMessageManager.DefaultManager 是类属性,所以是单例实现的。
Delphi帮助里带了一个简单的DEMO