https://frp.sage.fr/wiki1000/index.php?action=history&feed=atom&title=DettachMessage_%28TdbfMessageBox%29 2026-05-16T08:59:54Z Historique pour cette page sur le wiki MediaWiki 1.18.6 https://frp.sage.fr/wiki1000/index.php?title=DettachMessage_(TdbfMessageBox)&diff=5453&oldid=prev 2011-07-12T11:33:55Z

<p>Page créée avec « &lt;source lang=&#039;delphi&#039;&gt;function DettachMessage(iMsg:TdbfMessage):Boolean;&lt;/source&gt; Cette procédure détache un message à la boîte. {|class=&quot;wikitable&quot; |- |Result |Retourn… »</p> <p><b>Nouvelle page</b></p><div>&lt;source lang='delphi'&gt;function DettachMessage(iMsg:TdbfMessage):Boolean;&lt;/source&gt;<br /> <br /> Cette procédure détache un message à la boîte.<br /> <br /> {|class=&quot;wikitable&quot;<br /> |-<br /> |Result<br /> |Retourne True si le message a été supprimé.<br /> |-<br /> |iMsg<br /> |Un message à détacher<br /> |}<br /> <br /> {{tip|Le message est supprimé si il n'est plus attaché à aucune boîte.}}<br /> <br /> Exemple :<br /> <br /> &lt;source lang='delphi'&gt;<br /> //Procedure DeQueueMessage;<br /> var msg:TdbfMessage; box:TdbfMessageBox;<br /> begin<br /> box := TdbfMessageBox.FindBox('box1');<br /> if Assigned(box) then<br /> begin<br /> msg := box.DeQueueMessage('topic1');<br /> if Assigned(msg) then<br /> begin<br /> ShowMessage('found one');<br /> withP transaction do<br /> begin<br /> box.DettachMessage(msg);<br /> end;<br /> end<br /> else showMessage('no message in queue');<br /> end;<br /> end;<br /> &lt;/source&gt;<br /> <br /> Voir aussi : <br /> <br /> * [[AttachMessage_(TdbfMessageBox)|Attacher un message]]<br /> <br /> {{Footer|TdbfMessageBox (class)}}<br /> [[category:TdbfMessageBox]]</div>

Syfre