Discussion :

[pierrot67]

Bonsoir

Quelqu'un pourrait-il m'indiquer comment paramètrer une barrre de progression

j'ai une application en pascal un peu longue à ouvrir (10 secondes environ) et je voudrais mettre une progressbar en attendant l'ouverture.
est-ce possible si oui comment?


MERCI D'AVANCE.

[gudul]

Dans ton Splash, tu peux ajouter une progressBar en initialisant la valeur max avec le nombre de createForm que tu as et la faire évoluer entre chaque CreateForm.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    frmSplash := TfrmSplash.Create(Application); // On crée de la fenetre de Splash
    frmSplash.ProgressBar.Max := 20; // = au nombre de CreateForm
    frmSplash.ProgressBar.Position := 0;
 
  Application.CreateForm(TFormMain, FormMain);
  frmSplash.ProgressBar.Position := frmSplash.ProgressBar.Position + 1;
  Application.ProcessMessages;
  Application.CreateForm(TForm2, Form2);
  frmSplash.ProgressBar.Position := frmSplash.ProgressBar.Position + 1;
  Application.ProcessMessages;
  ....

Evidemment, il faudra toujours revenir afin de mettre à jour lors d'un ajout ou d'une suppression d'une form mais ca fonctionne