Delphi Event Bus进阶（三）如何使用通道？

Delphi Event Bus支持简单的通道，使用他分三步：

1.定义通道方法：

    [Channel('MemoChange')]
    procedure OnMemoChange(aMsg: String);

2.注册接收通道消息的对象：

procedure TfrmThird.FormCreate(Sender: TObject);
begin
  GlobalEventBus.RegisterSubscriberForChannels(self);
end;

3.发布通道消息：

  GlobalEventBus.Post('MemoChange', Memo1.Lines.Text);

如果要注销接收通道消息的对象，用下面的方法：

  GlobalEventBus.UnregisterForChannels(Self);

是不是很简单，祝好运了！