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

TdbfMessageBox (bam)Développement DSM

Outils personnels