DeleteMessages (TdbfMessageBox)

<source lang='delphi'>procedure DeleteMessages(iLinkTypes:Integer; iReadState:Integer; iBefore:TDatetime);</source>

Cette procédure supprime les messages par cette boîte antérieurs à une certaine date.

iLinkTypes	Le type de message à supprimer
iReadState	Le statut de lectures des messages à supprimer
iBefore	La date d'antériorité des messages à supprimer.

Exemple <source lang='delphi'> var box:TdbfMessageBox; begin

 box := TdbfMessageBox.Find('Name=%1',,True,['mybox']);
 if Assigned(box) then
  begin
    // delete all messages 
    box.DeleteMessages(MSGLINKTYPE_SEND+MSGLINKTYPE_RECEIVED, MSGREADSTATE_ALL, Now);
  end;

end; </source>

Voir aussi :

DeleteSendMessages

{{#if:TdbfMessageBox (bam)|

{{#if:TdbfMessageBox (bam)|— TdbfMessageBox (bam) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}