SetReadFlag (TdbfMessage)

De Wiki1000
Version du 13 décembre 2011 à 14:20 par Syfre (discuter | contributions)
(diff) ← Version précédente | Voir la version courante (diff) | Version suivante → (diff)
function SetReadFlag(const iBox:string; value:boolean):Boolean;

Cette fonction marque un message lu pour une boîte donnée.

Result True si le message est associé à cette boîte.
iBox Boîte ayant reçu le message.
Value Valeur du nouveau marqueur.

Exemple :

function ReadMessage(const iBox:string):boolean;
var box:TdbfMessageBox; msg:TdbfMessage;
begin
  // Set read flag on the first message of a box.
  Result := False;
  box := TdbfMessageBox.FindBox(iBox);
  if Assigned(box) then
   begin
     if box.dbfMessages.Count<>0 then
      begin
        msg := box.dbfMessages[0];
        Result := msg.SetReadFlag(iBox,True);
      end;
   end;
end;

TdbfMessage (class)Développement DSM

Outils personnels