Discussion :

[yosthegost]

Bonjour a tous,

Alors je gère une progress form, simplement pour une attente, cependant cette Attente, je l'ai mis dans une unité a part.

Le probleme est que ma form bug un peu, la gauge n'evolue pas et mes labels ne sont pas visible, quand je fait :

Code :

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

1
2
3
4
5
6
7
 
FormEnCours.Timer1.Enabled:=True;
FormEnCours.Show;
...
...Partie du programme
...
FormEnCours.Timer1.Enabled:=False;

Tandis qu'avec

Code :

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

FormEnCours.ShowModal;

Tout est bloqué jusqu'à que je ferme la form.

[Philippe Gormand]

Bonjour.

Envois le code de la procédure Timer.

A+

[Pedro]

Salut
C'est normal, ShowModal "bloque" la fenêtre qui appelle... Donc si ta TGauge est dessu, ben elle est bloquée aussi ... La solution serait de mettre cette Gauge sur la fiche que tu appelles avec ShowModal.

[yosthegost]

Envois le code de la procédure Timer

Voila le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFormEnCours.Timer1Timer(Sender: TObject);
var
 t:integer;
begin
 t := t + 1;
 if t = 101 then
  t := 0;
 spSkinGauge1.Value := t;
end;

C'est normal, ShowModal "bloque" la fenêtre qui appelle... Donc si ta TGauge est dessu, ben elle est bloquée aussi ... La solution serait de mettre cette Gauge sur la fiche que tu appelles avec ShowModal.

Justement ma gauge n'est pas dans la fenetre qui appelle.

j'ai fait une fenetre toute seule dans laquel il y a seulement la gauge et un label.

[Philippe Gormand]

La variable t est locale. Donc, elle réallouée à chaque passage dans la procédure Timer.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
<div style="text-align: left;">procedure TFormEnCours.Timer1Timer(Sender: TObject);
var
 t:integer;
begin
 t := t + 1;
 if t = 101 then
  t := 0;
 spSkinGauge1.Value := t;
end;</div>

Il faut modifier ton code ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
   t : integer;

 
 
procedure TFormEnCours.Timer1Timer(Sender: TObject);
begin
     t := t + 1;
    // Comme t peut avoir n'importe quelle valeur par défaut, il vaut mieu...
     if t >= 101 then  t := 0;
     spSkinGauge1.Value := t;
end;

[yosthegost]

En faite je pense que je suis mal expliqué:

Mon probleme est que lorsque je lance ma form, la gauge evolue normale, tout va bien.
Mais quand elle se lance, je suis obligé de la fermer pour continué la suite du programme, il est la mon probleme.

Je voudrai quelle se ferme toute seule, du genre :

Code :

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

1
2
3
4
5
6
 
Ouverture de la form et évoulution de la ...
 
...Partie du programme
 
Fermeture de la form

Je souhaite faire cela car la Partie du programme est longue.

Et voilà l'autre partie du code. Ce sont les seules procedure qu'il y a dans mon unités avec la procedure Timer1.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFormEnCours.FormCloseQuery(Sender: TObject;
 var CanClose: Boolean);
begin
 if timer1.Enabled then
 begin
  ModalResult := mrAbort;
  //    CanClose := false;
 end;
end;

Merci.