Discussion :

[ddubois]

J'essai de faire un Splash Screen (fenêtre de lancement)
J'ai modifié le code du projet (Menu "Projet" > Voir le source), mais mon splash screen reste visible en permanence (caché sous la Form principale) et se ferme en même temps que la fiche principale de l'application...

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
 
begin
  FormSplashScreen := TFormSplashScreen.Create(Application) ;
  FormSplashScreen.Show;
  Application.Initialize;
  FormSplashScreen.Update;
  Application.MainFormOnTaskbar := False; //True;
  Application.Title := 'Lanceur-Express';
  Application.HelpFile := '..\LE-Aide.pdf';
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TFormSplashScreen, FormSplashScreen);
  Application.CreateForm(TFormAbout, FormAbout);
  with FormMain do
  begin
    Show;
    Update;
    InitListView;
  end;
  FormSplashScreen.Hide;
  FormSplashScreen.Free;
  Application.Run;
end.

Merci de votre aide,

Denis

[DOLPat®]

Bonjour

Tu crées 2 instances TFormSplashScreen. Supprime la ligne 11:

Code :

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

  Application.CreateForm(TFormSplashScreen, FormSplashScreen);

[ddubois]

Merci Pat. C'est Ok.