Discussion :

[colorid]

Bonjour,

Sur un click une nouvelle fiche doit se créer et apparaître.
Problème: la fiche met un certain temps pour se créer car elle est complexe. Comment meubler ce temps d'attente l'opérateur pouvant penser que l'appli est plantée !
Un message ? Un progressbar ? Que me recommandez-vous et comment ècrire le code ?

Code :

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

1
2
3
4
5
6
7
  begin
        FormPackageNominal:= TFormPackageNominal.create(nil);
        try
          FormPackageNominal.ShowModal;
        finally
          FormPackageNominal.Free;
        end;

Il doit se passer quqlquechose entre le begin et la seconde ligne.

Merci à tous

[Jeankiki]

Pourquoi ne pas changer simplement le curseur en sablier ?

[colorid]

Pourquoi pas ?

Mais je préfèrerai quelquechose de plus voyant

[colorid]

Je viens d'essayer mais avec le code suivant le curseur ne change pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  case I of
    0: begin
        Cursor:= crHourGlass;
        FormPackageNominal:= TFormPackageNominal.create(nil);
        try
          FormPackageNominal.ShowModal;
        finally
          FormPackageNominal.Free;
        end;
        Cursor:= crDefault;
      end;

Comment forcer Windows a exécuter le changement de curseur ?

[Jeankiki]

Crée alors une fenètre dans laquelle tu indiques un message du genre "Veuillez patienter..." ou "Chargement en cours...". Avec BorderStyle sur bsNone
Tu l'affiches juste avant la ligne ci-dessous

Code :

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

1
2
 
FormPackageNominal:= TFormPackageNominal.create(nil);

Et tu fais un free dès que le showmodal de l'autre fenêtre est fait.

[Jeankiki]

Essaye avec

Code :

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

1
2
3
 
Screen.Cursor:= crHourGlass;
...

[colorid]

Ca marche Ok et mille merci