Botschaft verschicken unter Firemonkdey

[Harry Stahl]

Wenn es asynchron sein soll, könnte man eine einfache Hilfsfunktion verwenden:

Delphi-Quellcode:

procedure PostMyMessageAsync(Sender: TObject; AMessage: TMessageBase);
begin
  TThread.ForceQueue(nil,
    procedure
    begin
      TMessageManager.DefaultManager.SendMessage(Sender, AMessage);
    end
  );
end;