System.Messaging.TMessageManager.SendMessage
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++ : <source lang="cpp"> TMessageManager* MessageManager = TMessageManager::DefaultManager; TMessage__1<UnicodeString>* Message = new TMessage__1<UnicodeString>("Ceci est un message chaîne."); MessageManager->SendMessage(Sender, Message, true); </source>
Voir aussi
- Exemple de code System.Messaging (Delphi)
- Exemple de code System.Messaging (C++)