SetReplyFlag (TdbfMessage)
function SetReplyFlag(const iBox:string; value:boolean):Boolean;
Cette fonction marque un message répondu 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. |
Note : Cet indicateur est automatiquement positionné :
|
Exemple :
function ReplyMessage(const iBox:string):boolean;
var box:TdbfMessageBox; msg:TdbfMessage;
begin
// Set reply 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.SetReplyFlag(iBox,True);
end;
end;
end;