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