Discussion :

[byboleymar]

Bonjour,

J'ai récuperé et modifié un code progressBar qui se ferme automatiquement, il fonctionne tres bien. Mais quand je l'integre dans mon programme initial, il ne se ferme plus automatique.

J'ai essayer diverse méthode mais je n'y arrive pas.

Avec ce code, ça ne se ferme pas automatiquement:

Code :

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

1
2
3
4
5
6
7
 
        with TMyProgressBar.Create(nil) do
        try
                ShowModal;
        finally
                close;
        end;

et avec celui ci, la fenetre s'ouvre et met une erreur à sa fermeture :

Code :

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

1
2
3
4
5
6
7
 
var
  Mafenetre : TMyProgressBar;
begin
  Mafenetre := TMyProgressBar.Create(Application); 
  Mafenetre.Show;
  Mafenetre.close;

Il existe peu etre une autre methode pour executé mon progressbar?

[jfdeterme]

Salut,
essaye Mafenetre.terminate, au lieu de maFenetre.close .

A+

[byboleymar]

j'ai essay, mais mon delphi n'accept pas cette commande :

'undeclared indentifier : 'terminate'

[byboleymar]

je vous met le message d'erreur que j'ai quand la fenetre essaye de se fermer :

... Class EInvalideOperation with message : 'Cannot change visible in onShow or Onhide'

[Tardiff Jean-François]

Bonjour

Si vous tapez

Code :

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

1
2
3
4
5
6
7
 
     with TMyProgressBar.Create(nil) do
        try
                ShowModal;
        finally
                close;
        end;

il es normale que la fenêtre ne ferme pas. ShowModal ouvre la fenêtre et attent que la fenêtre se ferme pour continuer. La fermeteure (close) a donc automatiquement lieu quand la fenêtre à été Fermer.

Si vous taper

Code :

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

1
2
3
4
5
6
7
 
with TMyProgressBar.Create(nil) do
        try
                ShowModal;
        finally
                close;
        end;

Vous devriez juste ouvrire et IMEDIATEMENT fermer la fenêtre.

Cela en théorie.

Votre erreure me parrait bizar. Elle resemble à des erreure que j'ai eu en essayant de changer un show en showmodal avec un forme ouverte.
Esayer en mettant "Sleep(1000);" sur la ligne avant close. Cela différera le close de 1 seconde et permettra de voir si la fenêtre n'a pas finit de s'ouvrire avant d'exécuté le close. (se serait étonant mais ...)

[byboleymar]

Je pense pas que le probleme vienne de la fermeture de Tmyprogressbar, car je peu le fermer manuellement par la croix, c'est vraiment juste la fermeture automatique qui pose probleme. Soit ça ne fait pas, soit il y a le message d'erreur.
Je pense que c'est ma fonction que le lance qui est mauvaise.

[Pedro]

Salut
Et si tu mettais juste ShowModal?
genre:

Code :

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

1
2
3
4
5
6
7
 
with TMyProgressBar.Create(nil) do
        try
                ShowModal;
        finally
                Release;
        end;

[byboleymar]

Toujours pas

[Pedro]

Toujours pas

A quel moment dans le code de la TProgressForm, y a-t-il

ModalResult := mrQQChose;

?

[byboleymar]

nul part
Cela a son importance?

[Pedro]

nul part
Cela a son importance?

Ben disons que normalement c'est grâce à ça que ta fiche se ferme
Que fais cette fiche? Elle se lance, il y a un ProgressBar (vu le nom ) Et après? A la fin du ProgressBar, elle doit se refermer toute seule? Dans ces cas-là, il doit forcément y avoir ce code quelque part
A la limite, s'il n'est pas trop long, tu peux poster le code de cette fiche stp ?

[byboleymar]

Pour resumé, voila le code :

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
 
procedure TMyProgressBar.FormActivate(Sender: TObject);
var
  i: integer;
const
  fin = 200000;
begin
 
  while i < fin do
  begin
 
  .... le code qui permet de faire progresser ma barre 
   et de l'arreter quand on clic sur un boutton....
 
    if Stopped then
            i := fin;
  end;
  close;
end;
 
procedure TMyProgressBar.Button1Click(Sender: TObject);
 
begin
  Stopped := true;
end;

actuellement, je doit modifier la procedure 'TMyProgressBar.Button1Click' pour fermer le progressBar :

Code :

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

1
2
3
4
5
6
7
 
procedure TMyProgressBar.Button1Click(Sender: TObject);
begin
  Stopped := true;
  Button1.Caption := '&Fermer';
  close;
end;

[Tardiff Jean-François]

Bonjour,

Dans votre while, avez cous l'ordre "application.ProcessMessage;" ?

[byboleymar]

Oui, effectivement, il y a cette commande. Ce serait cette commande qui poserai le probleme?

[Tardiff Jean-François]

Bonjour,


Non il ne pose pas de problème mais il est indispensable. Cela aurait pus expliquer des cas de non fermeture.

La je ne vois plus que la code dans la boucle.