System.Messaging.TMessageManager.SendMessage

De RAD Studio API Documentation
Aller à : navigation, rechercher

Delphi

procedure SendMessage(const Sender: TObject; AMessage: TMessage); overload; inline;
procedure SendMessage(const Sender: TObject; AMessage: TMessage; ADispose: Boolean); overload;

C++

void __fastcall SendMessage(System::TObject* const Sender, TMessageBase* AMessage)/* overload */;
void __fastcall SendMessage(System::TObject* const Sender, TMessageBase* AMessage, bool ADispose)/* overload */;

Propriétés

Type Visibilité  Source Unité  Parent
procedure
function
public
System.Messaging.pas
System.Messaging.hpp
System.Messaging TMessageManager


Description

Envoie un message aux abonnés.

En utilisant la méthode SendMessage, toutes les méthodes qui étaient précédemment abonnées au type du message envoyé sont appelées avec ce message particulier en tant que paramètre.

Exemple

Cet exemple crée et envoie un message contenant une chaîne Unicode au gestionnaire de messages par défaut :

Dans Delphi :

MessageManager := TMessageManager.DefaultManager;
Message := TMessage<UnicodeString>.Create('Ceci est un message chaîne.');
MessageManager.SendMessage(Sender, Message, True);

Dans C++ : &lt;source lang="cpp"&gt; TMessageManager* MessageManager = TMessageManager::DefaultManager; TMessage__1&lt;UnicodeString&gt;* Message = new TMessage__1&lt;UnicodeString&gt;("Ceci est un message chaîne."); MessageManager-&gt;SendMessage(Sender, Message, true); &lt;/source&gt;

Voir aussi