Discussion :

[JJJJJ]

Bonjour,

Voici un programme ultra-simple qui ne comporte que deux Forms et un timer (inverval:=1000). Timer1 est placé sur Form1 et il n'y a rien sur Form2.
Lorqu'on lance l'application, Form1 apparait et Form2 est alternativement visible pendant 1 seconde et cachée pendant 1 seconde. Tout cela est normal.
Si on clique sur le contrôle "réduire" (minimize) de la barre des titres de Form1, cette Form1 devient cachée, ce qui est normal. Mais Form2 continue imperturbablement à être alternativement visible et cachée, au lieu de cesser de réapparaître.
La propriété onHide de Form1, qui engage la procédure TForm1.FormHide, ne semble donc pas fonctionner, à moins que cela ne vienne d'un timer récalcitrant à bien vouloir s'arrêter ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,menus,ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormHide(Sender: TObject);
  private
    { Déclarations privées}
  public
    { Déclarations publiques}
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.DFM}
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
     if form2.visible=true then form2.visible:=false else form2.visible:=true;
end;
 
procedure TForm1.FormHide(Sender: TObject);
begin
     timer1.enabled:=false;
     Form2.visible:=false;
end;
 
end.

[Droïde Système7]

Bonjour,

Je ne comprends pas trop...

La propriété onHide de Form1, qui engage la procédure TForm1.FormHide, ne semble donc pas fonctionner, à moins que cela ne vienne d'un timer récalcitrant à bien vouloir s'arrêter ?

Mais seule Form2 est pointée, nulle part Form1.

Mais Form2 continue imperturbablement à être alternativement visible et cachée, au lieu de cesser de réapparaître.

Alors pourquoi voudrais-tu que Form1 soit dans le coup ?

@+

[JJJJJ]

Alors, c'est moi qui ne comprends pas :
Selon le code précédent, lorsqu'on clique sur le contrôle "réduire" de sa barre des titres, Form1 devient caché (c'est à dire Form1.visible=false) et la procédure Form1Hide devrait s'exécuter, donc Timer1 devrait s'arrêter.
Il y a quelque chose d'élémentaire qui m'échappe !

[Droïde Système7]

Alors, c'est moi qui ne comprends pas :
Selon le code précédent, lorsqu'on clique sur le contrôle "réduire" de sa barre des titres, Form1 devient caché (c'est à dire Form1.visible=false) et la procédure Form1Hide devrait s'exécuter, donc Timer1 devrait s'arrêter.
Il y a quelque chose d'élémentaire qui m'échappe !

Hé oui après tout... au fait et si tu ajoutes un ShowMessage ou un Beep dans cette proc FormHide ; est-ce que ça se déclenche ?

[JJJJJ]

Bon, puisqu'on n'arrive pas à se comprendre, je vais poser la question d'une façon encore plus concrète :
Que faut-il corriger dans le code précédent pour que, lorsqu'on clique sur le contôle "réduire" de la barre des titres de Form1, alors Form2 ne soit plus visible et ne réapparaisse pas périodiquement ?

P.S. : j'avais écrit cela avant d'avoir vu ton nouveau message. Je vais essayer les tests que tu suggères.

[Droïde Système7]

Attends, attends,

Je viens de tester avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
...
procedure TForm1.FormHide(Sender: TObject);
begin
  timer1.enabled:=false;
  Form2.visible:=false;
  ShowMessage('Form1 = Hide');
end;
 
...

Sous mon Vista, si Form1 en Hide = je ne revois plus Form2.
Donc pour moi, ton code fonctionne normalement.

Mais le plus curieux est que le ShowMessage ne se déclenche pas...

@+

[JJJJJ]

Re-bonjour et suite :

J'ai fait comme toi, avec ShowMessage et Beep.
Rien ne se passe, ni message, ni beep et Form2 continue à réapparaitre périodiquement.
Donc pour moi, la conclusion est claire :
Le contrôle "réduire" de la barre des titres ne provoque pas l'exécution de la procédure Form1Hide.
Je suis sous WindowsXP et Deplhi4. Il y aurait donc (?) une différence au niveau système ou version de Delphi, entre ton environnement et le mien, puisque dans ton cas, Form2 ne réapparait pas ?