SetReadFlag (TdbfMessage)
De Wiki1000
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;