Discussion :

[vg-matrix]

Salut à vous.
J'ai un soucis avec mon splashscreen. Voici un extrait du code du projet:

Code :

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

1
2
3
4
5
6
7
8
9
Application.Initialize;
  Fensplash := TFensplash.Create(Application);
  Fensplash.Show;
  Fensplash.Update;
  ...
  Application.CreateForm(TFensplash, Fensplash);
  Fensplash.Close;
  Fensplash.Release;
  Application.Run;

Puis l'évènement OnCreate du splashscreen

Code :

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

1
2
3
4
5
procedure TFensplash.FormCreate(Sender: TObject);
begin
  sleep(3000);
  self.Release; //si je ne le fait pas, le splash reste affiché sur ma fenêtre principale
end;

Mais le splash n'est pas détruit à l'apparition de la fenêtre principale et j'ignore pourquoi.
Quelqu'un pourrait-il m'aider?

[Archimède]

méthode :

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
 
program Project1; 
uses
Forms,
Windows, //Ajout de l'unité "Windows" pour la fonction sleep
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
 Form2:= TForm2.Create(Application); //Crée la fenêtre Form2
 try 
  Form2.Show; //Affiche Form2
  Application.Initialize; 
  Form2.Refresh; //Redessine Form2
  Sleep(3000); //Attend 3 secondes
  Application.CreateForm(TForm1, Form1);
  Form2.Hide; //Cache la form2
 finally
  Form2.Free; //Libère Form2
 end; 
 Application.Run; 
end.

[vg-matrix]

Quand j'applique votre solution, le splashscreen reste affiché derrière la fenêtre principale. C'est bien visible puisque je suis sous Windows 7.

[SergioMaster]

plutôt que dans le onCreate , j'aurais mis le sleep dans le onActivate
et rien dans le OnCreate !

[BuzzLeclaire]

Salut,

chose etrange, au départ tu la créée :

Code :

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

1
2
 
  Fensplash := TFensplash.Create(Application);

Et tu la recréer...

Code :

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

1
2
 
  Application.CreateForm(TFensplash, Fensplash);

???

Voilà ce que j'utilise et qui fonctionne sur tous les windows

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
  FSplashScreen := TFSplashScreen.Create(Application); // On crée la fenetre de Splash
  FSplashScreen.Show; // affichage de cette fenetre
  FSplashScreen.Update; // On force l'affichage de la fenetre (sinon elle n'apparait que partiellement)
 
  Application.Initialize;
 
    Application.Title := 'Programme';
 
    FSplashScreen.DebModules; // Procédure interne au Splashscreen
    Application.CreateForm(TFData, FData); // DataModule
    FSplashScreen.FinModules; // Procédure interne au Splashscreen
 
// ...
 
    FSplashScreen.Close;  // Fermeture la fenêtre de Splash
    FSplashScreen.Release;  // Destruction de la fenêtre
 
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TFPrincipal, FPrincipal);
 
    Application.Run;

Ma form Splashscreen ne necessite aucune action dans le OnCreate ou OnClose, ou autre...

Bye

[Gouyon]

J'ai eu le même problème. Je suis parvenu a mes fins en

1. mettant ApplicationMainFormOnTaskbar:=false;
2. En ne générant pas automatiquement la form splashscreen (projet -> options -> Fiches)