Delphi中的观察者模式运用

不知道从哪个版本开始,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