Discussion :

[PinGuy]

Salut a tous

j'aimerais savoir comment faire pour detecter que la fiche et tous ses composants sont bien chargés
(J'aimerais faire un pourcentage de chargement au demarrage de l'application ... je y ai mis dans formcreate , mais quand ca s'affiche, c directement a 100% ... le temps entre 0 et 100 % est de 4-5 secondes, mais c aussi le temps que met la fiche pour s'afficher ...

donc j'aimerais avoir une procedure qui s'execute une fois que la fiche est completement chargée, et tous les composants affichés ...

si qqu'un a une idée, merci d'avance.

[Sylvain James]

Tu peux contrôler l'avancement du chargement des fiches dans le source du projet (click droit sur projet dans l'explorateur de projet puis Voir source)

Sylvain

[PinGuy]

Salut

merci pour ta reponse, mais je vois pas bien ce que tu veux dire par la ...

Comment je fait pour suivre le chargement des objets pendant l'execution ?

Merci

a+

[Al-Yazdi]

Pour ton pourcentage ; aucunes idées, mais par contre, après qu'il ait créé la forme, il lance qqch comme OnShow ! et après, mais ça, tu l'avais deviné un OnPaint , Mais si !

Moi
Salut

[PinGuy]

salut

onpaint, je conaissais, mais ya 2 problemes :

- il lance la procedure pdt qu'il dessine, donc le decompte de mon compte a rebours se fait en meme temps que le pc rame pour afficher, ce qui fait qu'une fois affiché, on est a 100 % ... sans avoir vu le decompte
- cette procedure est relancée des que l'on reduit puis restaure la fiche, et meme apres une reprise de focus, ce qui m'oblige a controler si c'est la premiere fois que c lancé ...

[Al-Yazdi]

C'est bien ce que je te disais avec ton compte à rebour (ou ton pourcentage, c'est le même problème ...)

A mon avis, la solution c'est d'avoir une autre fenêtre (toute petite, rapide à lancer) qui affiche plein de barratin pendant le OnCreate et qui se termine grace à OnShow. OnPaint, je l'avais juste cité pour l'anectdote (après show, paint ; pour moi, c'est obligatoire !)

Moi
Salut

[Sylvain James]

Salut

merci pour ta reponse, mais je vois pas bien ce que tu veux dire par la ...

Comment je fait pour suivre le chargement des objets pendant l'execution ?

Merci

a+

voici un extrait de code de projet Delphi :

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
16
17
18
19
20
21
22
23
uses
  windows,
  Forms,
  fexperts in 'fexperts.pas' {frmExperts},
// etc.
 
{$R *.RES}
const
  SPLASH_WAIT_SEC = 2;
begin
  Application.Initialize;
  Application.Title := '-------';
  splash := TFrmSplash.Create(nil); //splash déclaré ds funite.pas
  splash.Show;
  splash.Update;
  sleep(SPLASH_WAIT_SEC * 1000);
  Application.CreateForm(TMain---, Main---);
  Application.CreateForm(TfrmExperts, frmExperts);
  Application.CreateForm(TfrmQR, frmQR);
// etc.
  application.ProcessMessages;
  Application.Run;
end.

Tu vois ici qu'on manipule les fenêtre pour créer un splashform (écran d'accueil).
Mais aussi, entre chaque Application.CreateForm, tu peux ajouter :

Application.ProcessMessage pour ajouter des informations de progression, sur ton splashform par exemple (ajout info puis splash.Update)

Sylvain

[nopnop]

Bonjour,
Je sais que cette discussion a plus de 4 ans, mais je suis tombée dessus car j'ai le meme probleme.
Pour information, j'ai trouvé une solution qui me convient(faire un splashscreen) avec une page explicative tres bien faite :
http://www.darkskull.net/?module=vie...le&idarticle=3

En espérant que ca aidera quelqu'un avec ce probleme!
A+ Julie