http://wiki.sage.fr/index.php?action=history&feed=atom&title=AttachMessage_%28TdbfMessageBox%29 2026-05-25T04:40:57Z Historique des versions pour cette page sur le wiki MediaWiki 1.41.1 http://wiki.sage.fr/index.php?title=AttachMessage_(TdbfMessageBox)&diff=5448&oldid=prev 2011-07-12T09:22:10Z

<p>Page créée avec « &lt;source lang=&#039;delphi&#039;&gt;function AttachMessage(iMsg:TdbfMessage):TdbfMessageBoxAssMessage;&lt;/source&gt; Cette procédure attache un message à la boîte. {|class=&quot;wikitable&quot; |- |… »</p> <p><b>Nouvelle page</b></p><div>&lt;source lang=&#039;delphi&#039;&gt;function AttachMessage(iMsg:TdbfMessage):TdbfMessageBoxAssMessage;&lt;/source&gt;<br /> <br /> Cette procédure attache un message à la boîte.<br /> <br /> {|class=&quot;wikitable&quot;<br /> |-<br /> |Result<br /> |Un objet TdbfMessageBoxAssMessage représentant l&#039;association<br /> |-<br /> |iMsg<br /> |Un message à attacher<br /> |}<br /> <br /> {{tip|Le message est attaché comme un message reçu.}}<br /> <br /> Exemple :<br /> <br /> &lt;source lang=&#039;delphi&#039;&gt;<br /> //Procedure CreateMessage;<br /> var msg:TdbfMessage; box1,box:TdbfMessageBox;<br /> begin<br /> box := TdbfMessageBox.FindBox(&#039;mybox&#039;);<br /> if Assigned(box) then<br /> begin<br /> withP transaction do<br /> begin<br /> // From<br /> msg := box.CreateMessage(&#039;Some subject in a queue&#039;,&#039;Some content&#039;, nil);<br /> msg.queueTopic := &#039;topic1&#039;;<br /> // To<br /> box1 := TdbfMessageBox.FindBox(&#039;box1&#039;);<br /> if Assigned(box1) then box1.AttachMessage(msg);<br /> end;<br /> end;<br /> end;&lt;/source&gt;<br /> <br /> Voir aussi : <br /> <br /> * [[CreateMessage_(TdbfMessageBox)|Création d&#039;un message]]<br /> <br /> {{Footer|TdbfMessageBox (class)}}<br /> [[category:TdbfMessageBox]]</div>

Syfre