DettachMessage (TdbfMessageBox)

Syfre (discuter | contributions)
(Page créée avec « <source lang='delphi'>function DettachMessage(iMsg:TdbfMessage):Boolean;</source> Cette procédure détache un message à la boîte. {|class="wikitable" |- |Result |Retourn… »)

---

Version actuelle en date du 12 juillet 2011 à 13:33

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 —

Whos here now:   Members 0   Guests 0   Bots & Crawlers 1