DeleteSendMessages (TdbfMessageBox)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>procedure DeleteSendMessages(iSince:TDatetime);</source> Cette procédure supprime les messages envoyés par cette antérieurs depuis une certaine date… ») |
|||
Ligne 11 : | Ligne 11 : | ||
Exemple | Exemple | ||
<source lang='delphi'> | <source lang='delphi'> | ||
+ | var box:TdbfMessageBox; | ||
+ | begin | ||
+ | box := TdbfMessageBox.Find('Name=%1','',True,['mybox']); | ||
+ | if Assigned(box) then | ||
+ | begin | ||
+ | box.DeleteSendMessages(Now); | ||
+ | end; | ||
+ | end; | ||
</source> | </source> | ||
Version du 11 juillet 2011 à 13:30
procedure DeleteSendMessages(iSince:TDatetime);
Cette procédure supprime les messages envoyés par cette antérieurs depuis 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