Discussion :

[eponette]

Bonjour,

Lors du OnShow de certaines forms, j'aouvre des connections à des tables. Cela mets parfois du temps. Pour faire patientez les utilisateurs, j'affiche une autre form avec un mesage 'veuillez patientez' et un progressBar qui affiche un pourcentage.

Mais comme le fenêtre à message est non modale (pour que je puisse faire avancer les progressBar), les boutons sont activables ce qui déclanche des catastrophes.

Comment faire pour bloquer une fenêtre (les controles)?

Merci

[Alyx²]

le fait d'ouvir une fenêtre par ShowModal ne devrait pas empêcher l'avancement de ta progressBar...

Où est le problème?
Au pire, tu dois pouvoir passer la feuille arrière à enabled = false, ce qui la désactive intégralement.
Mais c'est un peu dangereux, parce que si ca plante, tu ne pourras même plus la fermer... (sauf ctrl+alt+suppr )

[cadetill]

Salut

J'utilise cette fonction

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
 
procedure TCustomChildFrm.GesControls(Control: TControl;
  Enabled: boolean);
var
  i: integer;
begin
  for i := 0 to Control.ComponentCount - 1 do
  begin
    if Control.Components[i].ComponentCount > 0 then
      GesControls(TControl(Control.Components[i]), Enabled);
 
    if Control.Components[i] is TControl then
      TControl(Control.Components[i]).Enabled := Enabled;
  end;
end;

et pour l'apeller :

Code :

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

1
2
3
4
5
6
 
begin
  GesControls(Self, false);
  ....
  GesControls(Self, true);
end;

A+

[eponette]

le fait d'ouvir une fenêtre par ShowModal ne devrait pas empêcher l'avancement de ta progressBar...

Où est le problème?

Parce que j'avance la progression du progressBar dans la fenêtre appelante car c'est elle qui fait le OnShow, et donc c'est la où je sais où j'en suis. Si je fais un showModal dans le OnShow, il va s'arrêter. Donc inutile.

[Alyx²]

paye ton usine à gaz cadetill...

(ok, je sors...)

[Alyx²]

Parce que j'avance la progression du progressBar dans la fenêtre appelante car c'est elle qui fait le OnShow, et donc c'est la où je sais où j'en suis. Si je fais un showModal dans le OnShow, il va s'arrêter. Donc inutile.

ah oui... forcément...
Ca serait pas plus simple à ce moment là de mettre la progression dans une petite fenetre à part?

Elle te sera surement utile par la suite en plus. (réutilisable).
C'est vrai que sinon, à par se faire les composants 1 par 1, je vois pas trop...
Ou alors faire un test dans chaque OnClick qui vérifie si le traitement est terminé ou non (à l'aide d'un booleen ou de ta progress bar). Si c'est pas encore terminé, tu jette l'utilisateur!

[eponette]

Avec un Try ... Finally, pas besoin de ctrl+Alt+Supprime.

C'est pas très beau, mais cela fonctionne

[eponette]

ah oui... forcément...
Ca serait pas plus simple à ce moment là de mettre la progression dans une petite fenetre à part?

La fenêtre est une fenêtre à part... J'ai juste besoin de savoir où je suis pour faire avancer le progress. Le enabled = false fonctionne mais n'est pas très beau. Mais à défaut...

Merci quand même (et à Cadetill aussi, malgrès les propos limite de Alyx²)