DeleteSendMessages (TdbfMessageBox)
procedure DeleteSendMessages(iSince:TDatetime);
Cette procédure supprime les messages envoyés par cette boîte antérieurs à une certaine date.
| iSince | La date d'antériorité des messages à supprimer. |
Exemple
var box:TdbfMessageBox;
begin
box := TdbfMessageBox.Find('Name=%1','',True,['mybox']);
if Assigned(box) then
begin
box.DeleteSendMessages(Now);
end;
end;
Voir aussi :