Boite message

Question

Bonjour a tous,

Dans une boucle sans fin, je fait un test et suivant l'&#233;tat d'un flag j'affiche une boite message.
Est-il possible de tester si un dialogue et d&#233;ja affich&#233; &#224; l'&#233;cran ?
Comment faire pour que cette boite ne s'affiche qu'une seule fois ?
Merci de votre aide.

L'algo :

while toto do
begin
    if flag = true then        ShowMessage('-Erreur-');
end;

atomefougere · Answer

Si tu cherches &#224; afficher le message une fois et &#224; sortir de la boucle, utilise l'instruction break.

Si tu n'as aucune condition de sortie dans ta boucle, j'ai un peu de mal &#224; en comprendre l'utilit&#233;.

Que cherches-tu vraiment &#224; faire ?

fallen angels · Answer

en fait, je test si des fichiers corespondent &#224; certaints crit&#233;res.
j'ai donc positionn&#233; un timer qui scrute des r&#233;pertoires toute les heures.
des qu'un fichier correspond a mon critere, je veux recevoir un message et un seul et sans que le soft s'arrete...
suis-je plus claire ?

yvemoreau · Answer

j'ai test&#233; ceci peut-&#234;tre une solution pour ce que tu veux faire modifie le temps pour test&#233; car 1 heure c'est long ...

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;


type
  TForm1 = class(TForm)
  public
    { D&#233;clarations publiques }
  end;


 type
  scrute_toute_les_heures = class(TThread)
  protected
    procedure Execute; override;
    constructor Create();
end;


type
  scrute = class(TThread)
  protected
    procedure Execute; override;
    constructor Create();
end;


  procedure ScruteFichier;

var
  Form1: TForm1;
  finThread:Boolean;


implementation
{$R *.dfm}

constructor scrute_toute_les_heures.Create;
begin
   FreeOnTerminate := True;
   inherited Create(false);
   Priority := tpNormal;
   finThread:=false;
end;
procedure scrute_toute_les_heures.Execute;
var
StartCount,
EndCount,
Frequency: TLargeInteger;
ElapsedTime: Extended;
begin
   while finThread=false do
   begin
      QueryPerformanceFrequency(Frequency);
      QueryPerformanceCounter(StartCount);
      ElapsedTime:=0;
      repeat
          if finThread=false then sleep(5900) else break; // dors ~~60 secondes
          QueryPerformanceCounter(EndCount);
          ElapsedTime := (EndCount - StartCount)/Frequency;


      until ElapsedTime>3600;  //3600 &#231;a fait bien 1 heure !


      if finThread=false then scrute.Create;
   end;
end;


constructor scrute.Create;
begin
   FreeOnTerminate := True;
   inherited Create(false);
   Priority := tpNormal;
end;
procedure scrute.Execute;
begin
   ScruteFichier;
end;


procedure ScruteFichier;
begin
    // ?
   MessageDlg('', mtError,[mbOK] ,0);
    // ?
end;



initialization
scrute_toute_les_heures.Create;
finalization
finThread:=true;


end.

yve

fallen angels · Answer

bien essay&#233; (quoique un peu compliqu&#233;) c'est exactement &#231;a mais... marche po !
il ne fait aucun doute que tu as tap&#233; dans le mille concernant l'algo sauf que le dialog "MessageDlg('', mtError,[mbOK] ,0);" s'affiche toute les minutes (j'ai modifi&#233; la tempo) alors que le but recherch&#233; et dans afficher une et une seule !
Betement je pense qu'il y a quelque chose du genre : 
If MessageDlg('', mtError,[mbOK] ,0) Then   // pour detecter qu'une boite est affich&#233;e !
    Begin
        ....
    End;

Cordialement

yvemoreau · Answer

oui, c'est en effet le cas mais, le but &#233;tait aussi de ne pas nuire au soft donc le thread laisse l'aplication rouler et l'alerte ne bloque pas la fiche,...., ce cas l&#224; &#233;tant r&#233;gl&#233; ,reste &#224; savoir quand afficher l'alerte ...
Au plus simple j'aurais pens&#233; utiliser un Boolean mais faudrais peut-&#234;tre pr&#233;voir un moyen de le r&#233;initialiser ? une option sur la fiche ? ou apr&#232;s 24 heures on r&#233;initialise automatiquement ?


procedure ScruteFichier;
begin
   if dejaAfficher=false then 
  begin
     dejaAfficher:=true;
      MessageDlg('', mtError,[mbOK] ,0);
  end;
    // ?
end;

&#231;a d&#233;pend de ce que tu veux faire ...
Yve

fallen angels · Answer

C'est ce que j'ai fait aussi mais cela ne convient pas !
pas possible d'ajouter un bouton pour reinitialiser le flag car il n'y a pas de fiche !
le truc serait que tant qu'il y a un message a l'&#233;cran le programme n'en g&#233;n&#233;re pas de nouveau !
c'est important car m&#234;me avec une tempo d'une heure, le week end le programme tourne et si l'&#233;v&#233;nement survient je me retrouve le lundi avec une 50e de boites &#224; tuer...  c'est gal&#233;re !
C'est &#233;tonnant qu'il n'y ai pas de tests sur les boites de dialogues ?
A+

Boite message

6 réponses

Votre réponse

Discussions similaires