Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous,

Voilà j'utilise le splashscreen comme décris dans la FAQ.
Elle fonctionne parfaitement.

Maintenant j'aimerais écrire des informations sur mon Splashscreen, je fais cela

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
procedure TFSplashScreen.FormCreate(Sender: TObject);
begin
  Label5.Caption := Label5.Caption + ' : ' + ApplicationVersion;
 
  Label1.BringToFront;
  Label2.BringToFront;
  Label3.BringToFront;
end;
 
procedure TFSplashScreen.FormShow(Sender: TObject);
begin
    Label1.Caption := 'Contrôle version disponible...';
    Update;
    SLEEP(2000);
// autres traitements ...
end;

Mais ma fenêtre Splashscreen n'apparait pas desuite, elle se montre uniquement apres le sleep(2000) et bien sur on ne voit rien des informations de démarrage de mon sofT.

Comment puis-je faire pour ecrire à l'intérieur de mon splashscreebn certain travaux de démarrage que j'execute avant le run de l'application et que l'utilisateur voit ce qu'il se passe ?

Merci de votre aide.

[peter27x]

A quoi il te sert ce sleep(2000) ?*

Car c'est lui qui retarde la fin du formShow et donc l'affichage effectif de la form.

[BuzzLeclaire]

salut,

@peter : C'etait juste pour tester...

Mais j'ai solutionné mon problème.

[BuzzLeclaire]

Pour info

j'ai failli oublié

dans le dpr j'ai ajouter cela (en rouge) ;

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
  FSplashScreen := TFSplashScreen.Create(Application); // On crée de la fenetre de Splash
  FSplashScreen.Show; // On affichage de cette fenetre

  Application.Initialize;

  FSplashScreen.Update; // On force l'affichage de la fenetre (sinon elle n'aparait que partiellement)
  FSplashScreen.Init(nil);

  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TFPrincipal, FPrincipal);

  FSplashScreen.Close;    { Fermeture la fenêtre de Splash              }
  FSplashScreen.Release;   { Destruction de la fenêtre                   }

  Application.Run;

et dans l'unité SplashScreen :

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
24
25
26
27
28
procedure TFSplashScreen.Init(Sender: TObject);
Var
  Versionning: String;
begin
    Label1.Caption := 'Recherche nouvelle version...';
    Update;
    Versionning := AnsiReplaceStr(VersionDispo(''),'-','.');
    if  Versionning = ApplicationVersion then
    Begin
    Label1.Caption := 'Dernière version : ' + Versionning + ' - votre version est à jour.';
    Label2.Caption := 'Chargement des modules...';
    Update;
    sleep(1000); // Pour l'instant
    Label2.Caption := 'Chargement des modules.';
    Label3.Caption := 'Démarrage.';
    Update;
    sleep(1000); // Pour l'instant
    Label3.Caption := 'Démarrage..';
    Update;
    sleep(1000); // Pour l'instant
    Label3.Caption := 'Démarrage...';
    Update;
    sleep(1000); // Pour l'instant
    end
    else
      application.Terminate;
 
end;

D'ailleur si vous constatez une grosse bétise n'hésité pas.

[peter27x]

Ok, mais ça c'est le init(), tu as quoi maintenant dans le formShow ?

edit : C'était pas le sleep(2000) qui justement causait tout ton pb ? J'ai pas bien pigé !

[BuzzLeclaire]

Ok, mais ça c'est le init(), tu as quoi maintenant dans le formShow ?

edit : C'était pas le sleep(2000) qui justement causait tout ton pb ? J'ai pas bien pigé !

En fait au début je n'avais pas pensé à executer une procedure apres le show, donc je me prenais la tête à vouloir faire mon travail dans le show du splashscreen (mais je te rassure ce n'était pas un sleep que j'avais, j'ai mis cela ici pour faire plus simple).