[分享]平台上自定义消息的发送和接收**

alang

自定义消息的定义

  TMyMessage = class(TBizMessage)
  private
    FMsg: String;
  public
    constructor Create(AMsg: String);
    static function Name: String;
    property msg: String read FMsg;
  end;

implementation

constructor TMyMessage.Create(AMsg: String);
begin
  inherited Create(TMyMessage.Name);
  FMsg := AMsg;
end;

static function TMyMessage.Name: String;
begin
  Result := 'MyMessage.Test';
end;

alang

发送消息

var
  lMsg: TMyMessage;
begin
  lMsg := TMyMessage.Create(Edit1.Text);
  BizSys.GlobalContext.SendMessage(lMsg);
  lMsg.Free;

alang

定义消息接收类
type
  TMyMessageHandler = class(TBizMessageHandler)
  private
    FMemo: TMemo;
  public
    procedure DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean); override;
  end;

procedure TMyMessageHandler.DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean);
begin
  if AMessage is TMyMessage then
  begin
    FMemo.Lines.Add((AMessage as TMyMessage).msg);
    Handled := True;
  end;
end;

在特定环境上增加这个消息处理对象
procedure TMainForm.AddMsgHandler;
begin
  lmh := TMyMessageHandler.Create;
  TMyMessageHandler(lmh).FMemo := Memo1;
  Memo1.Clear;
  BizSys.GlobalContext.AddMessageHandler(TMyMessage.Name, lmh);
end;

alang

完整的例子

alang

详细的文字说明，请参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=18518