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