Discussion :

[MelkInarian]

Bonsoir!
Dans l'appli que je suis en train de bâtir, j'ai un chargement de fichier qui dure assez longtemps en cours de fonctionnement (après que l'utilisateur ait choisi une option).
Je souhaite faire apparaître une fenêtre d'attente (pour éviter aux impatients de cliquer partout en disant « ça marche pas ! »).
Pour l’appel de la fenêtre en question je pense à :

Code :

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

MaFenetre.show ;

Mais je me demande comment la masquer au bon moment, lorsque le chargement sera terminé.
Je suis un novice autodidacte et j’ai eu beau tenter des recherches dans la FAQ ou les tutoriels avec : « Veuille patienter » ou « fenêtre d’attente », je n’ai rien trouvé de concluant.
Quelqu’un voudra-t-il me guider ?
Merci.

[toure32]

Tu peux utilise JVProgressBar de la librarie JVCL.
je l'utilise lorsque j'ecris dans un fichier.

[defluc]

Bonsoir,

Si tu ne dois plus ouvrir cette fenêtre : Ma Fenetre.Free, sinon Ma fenetre.Close

[philnext]

EN fait ce que tu veux faire s'appelle plutôt un Splash screen. Donc tu trouves bien dans la FAQ : http://delphi.developpez.com/faq/?pa...n#splashscreen

[philnext]

Euh..désolé j'avais mal lu le côté 'en cours d'execution de l'appli'...ce n'est donc pas vraiment un Splash.

[Eric Boisvert]

Je t'invite à lire ici...
[Résolu] Boîte de message sans bouton "Veuillez patienter..."
Je crois que c'est ce que tu cherche a faire...

[MelkInarian]

Merci à tous les deux.
je viens d'essayer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  MaFenetre.Show;
  MaFenetre.BringToFront;
  MaFenetre.Refresh;
   try
…..
mon traitement
….
Finally
    MaFenetre.close;
    ….
End ;

mais j'ai un message d'erreur sur le .close (et .free aussi):

EInvalidOperation 'Impossible de focaliser une fenêtre désactivée ou invisible

alors que la femêtre est visible et au premier plan.
Je viens de voir le post de PhilNext.
Effectivement on peut l'appeler ainsi mais comment le fermer?
J'ai trouvé des choses sur le splash screen, mais toujours pour le lancer au démarrage (appelé dans le .dpr) et pas en cours d'application comme j'ai besoin de le faire.
merci quand même.

[MelkInarian]

Je t'invite à lire ici...
[Résolu] Boîte de message sans bouton "Veuillez patienter..."
Je crois que c'est ce que tu cherche a faire...

C'est exactement ce que je cherche à faire, Eric Boisvert.Je viens de tester ce code, mais j'ai toujours la même exception:

EInvalidOperation 'Impossible de focaliser une fenêtre désactivée ou invisible

sur le

Code :

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

Diag.Hide();

Merci

[Eric Boisvert]

Je viens de tester ce code, mais j'ai toujours la même exception:
sur le

Code :

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

Diag.Hide();

Merci

T'a essayer ce code dans une nouvelle application?
Juste pour essayer de cerné le problème?
Quelle version de delphi?
Quelle version de OS?

[MelkInarian]

Je viens de me rendre compte (en mode pas à pas) qu'à l'exécution du

Diag.Hide();

, ça saute dans mon

Code :

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

TForm1.FormActivate(Sender: TObject);

dans lequel j'ai une instruction:

Code :

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

Edit1.SetFocus

et c'est la que surgit l'erreur:

EInvalidOperation 'Impossible de focaliser une fenêtre désactivée ou invisible

J'utilise [D5] avec [XP].
Melk

[MelkInarian]

Je viens de modifier mon prog pour qu'il n'y ait plus de

Code :

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

Edit1.SetFocus;

dans

Code :

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

TForm1.FormActivate(Sender: TObject);

Cela fonctionne, même si ça passe plusieurs fois dedans,
une fois quand il faut c'est à dire au début puis à chaque appel de

Code :

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

Diag.Hide();

Comme je ne fais qu'y charger mes combobox avec loadfromfile,
çà recharge à chaque passage mais ce n'est pas plus gênant que çà.
C'est bizarre tout de même.
Merci à tous
Melk

[Gilbert Geyer]

Comme c'est toujours agaçant, tant pour le concepteur que l'utilisateur', de poireauter devant un écran d'attente cela vaudrait également le coup de chercher à réduire la durée de chargement. Non ?

Exemple : Charger le fichier depuis le disque-dur d'abord via un Stream (réputés très rapides ), soit un TFileStream ou un TMemoryStream selon les besoins, et ceci en une seule rafale ininterrompue par tout traitement secondaire dont l'exécution peut être faite après chargement des données. (
Autrement dit : charger d'abord toutes les données et attendre la fin du chargement pour traiter les données. Les streams pour la vitesse de chargement et le traitement différé pour éviter de sanctionner cette vitesse par des appels répétitifs au disque-dur qui est toujours plus lent que ce qui se passe en mem-vive et dont l'inertie le rend encore plus lent si on lui demande de bosser par saccades au lieu de faire son boulot en continu sur sa lancée.

... Et si vous remplacez par exemple des "file of byte" extrèmements lents, par des Stream le gain de rapidité sera ancore plus conséquent.