DettachMessage (TdbfMessageBox)

function DettachMessage(iMsg:TdbfMessage):Boolean;

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 :

//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;

Voir aussi :

• Attacher un message

— TdbfMessageBox (class) — Développement DSM —