Voir la source de CurrentBox (TdbfMessageBox)

<source lang='delphi'>function CurrentBox():TdbfMessageBox;</source>
{{Version650}}

Cette fonction retrouve la Boîte à messages de l'utilisateur courant.

{|class="wikitable"
|-
|Result
|La Boîte à message trouvée.
|}

{{tip|La boîte à message d'un utilisateur est automatiquement créée si nécessaire.}}

Exemple :

<source lang='delphi'>
//Procedure SendMessage;
begin
  TdbfMessageBox.CurrentBox().SendMessageTo('box1;box2','Some subject','Some content', nil);
end;
</source>

Voir aussi :

* [[FindBox (TdbfMessageBox)|FindBox]]

{{Footer|TdbfMessageBox (class)}}
[[category:TdbfMessageBox]]