« DeleteSendMessages (TdbfMessageBox) » : différence entre les versions

De Wiki1000
(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… »)
 
Aucun résumé des modifications
 
(Une version intermédiaire par le même utilisateur non affichée)
Ligne 1 : Ligne 1 :
<source lang='delphi'>procedure DeleteSendMessages(iSince:TDatetime);</source>
<source lang='delphi'>procedure DeleteSendMessages(iSince:TDatetime);</source>


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


{|class="wikitable"
{|class="wikitable"
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>


Voir aussi
Voir aussi :
 
* [[DeleteMessages (TdbfMessageBox)|DeleteMessages]]


{{Footer|TdbfMessageBox (bam)}}
{{Footer|TdbfMessageBox (bam)}}
[[category:TdbfMessageBox]]
[[category:TdbfMessageBox]]

Dernière version du 24 novembre 2011 à 07:46

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 :

TdbfMessageBox (bam)Développement DSM