Hi,各位先進大家好:
小弟需在不同的APP間傳送訊息,
試了一下 TMessage,好像沒作用(連在同一APP中的二個Form也無法作用),
procedure TForm1.Button1Click(Sender: TObject);
var
FMyMessage : TMyMessageClass;
begin
FMyMessage := TMyMessageClass.Create;
FMyMessage.MyProp1 := 1;
FMyMessage.MyProp2 := 'Hello';
TMessageManager.DefaultManager.SendMessage(nil, FMyMessage);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
TMessageManager.DefaultManager.SubscribeToMessage(TMyMessageClass, Self.ProcessMessage);
end;
procedure TForm2.ProcessMessage(const Sender : TObject; const M : TMessage);
begin
if M is TMyMessageClass then begin
//Do something
Showmessage('aaa');
end;
end;
請教各位先進是否有相關的範例?
另,在Mac上,若想與 xcode 的 app 傳送訊息是否可行?
謝謝!