Discussion :

[zanoubya]

Bonsoir;
Je veux lancer au démarrage de mon application une fenêtre de chargement montrant progressivement l'exécution de mon programme pour illustrer je veux qu'elle soit comme la fenêtre qui s'affiche quand on fait une opération copier coller sous windows
Alors comment ce faire ?
J'ai pratiqué ce code pour créer un Splash Screen en se basant sur ce lien :
http://delphi.developpez.com/faq/?pa...n#splashscreen

Mais ca m'a rien donné : un affichage très rapide de la fenêtre Splash Screen à peine on arrive à la visualiser puis il est suivi par le lancement normal de la première fenêtre de mon application

Merci de m'expliquer comment réaliser ce problème ou bien si vous avez une autre méthode à suivre
Merci

[ShaiLeTroll]

Eh bien, si ton chargement n'est pas long, genre moins de la seconde, le SplashScreen sera limite plus long à afficher que l'initialization de ton programme ...

un tel écran de patience, est intéressant, pour par exemple, la connexion à la Base de données avec au passage le prepare explicite de quelques SQL très très souvent utilisé (avec IB et les composants IBX c'est indispensables), ou alors le chargement en mémoire de fichier (personalisation de l'application, une DB mémoire, ...)

[zanoubya]

Bonjour;
Même si j'ai augmenté la durée d'exécution des mes traitements la fenêtre s'affiche très normale il y a pas un effet de chargement comme celui que je cherche: un ascenseur de chargement (regarderez la pièce jointe )
Comment le réaliser?

[sat83]

Est ce que tu souhaite afficher une fenêtre qui s'affiche pendant l'initialisation de ton application, ou simplement une fenêtre "pour faire jolie" au lancement de l'application?

[zanoubya]

ni l'une ni l'autre.
En fait je veux exécuter un programme lors du lancement de mon application c'est pour ca je veux afficher un chargement pour montrer que ce programme est en cours d'exécution

[sat83]

Si tu souhaite lancer un programme externe et attendre la fin de son exécution pour continuer d'exécuter ton programme, regarde du coté de CreateProcess et WaitForSingleObject.

Un exemple ici

[zanoubya]

non il s'agit pas d'un programme externe c'est un traitement que j'effectue sur la base de donnée de mon application avant de la lancer

[ShaiLeTroll]

Ton traitement est dans une boucle :
OUI - Tu peux faire un ProgressForm.ProgressBar.StepIt();
NON - Faire un Thread pour ne plus rendre la tache bloquante et faire une progression bidon via un Timer ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
ProgressForm := TProgressForm.Create(nil);
try
  ProgressForm.Show();
 //  Traitement 
  for i := 0 to tache.count - 1 do
  begin
    tache.Run();
    ProgressForm.ProgressBar.StepIt(); 
  end;
finally 
  ProgressForm.Free();
end;

[zanoubya]

Voiiiiiiiiiiiiilà c'est ce que je désignais Merciiiii