DettachMessage (TdbfMessageBox)

<source lang='delphi'>function DettachMessage(iMsg:TdbfMessage):Boolean;</source>

Cette procédure détache un message à la boîte.

Result	Retourne True si le message a été supprimé.
iMsg	Un message à détacher

Tip : Le message est supprimé si il n'est plus attaché à aucune boîte.

Exemple :

<source lang='delphi'> //Procedure DeQueueMessage; var msg:TdbfMessage; box:TdbfMessageBox; begin

 box := TdbfMessageBox.FindBox('box1');
 if Assigned(box) then
  begin
    msg := box.DeQueueMessage('topic1');
    if Assigned(msg) then
       begin
         ShowMessage('found one');
         withP transaction do
          begin
            box.DettachMessage(msg);
          end;
       end
       else showMessage('no message in queue');
  end;

end; </source>

Voir aussi :

• Attacher un message

{{#if:TdbfMessageBox (class)|

{{#if:TdbfMessageBox (class)|— TdbfMessageBox (class) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}