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.