Discussion :

[Duan]

J'ai créé un splashscreen pour l'ouverture d'une application mais, même s'il fait bien son travail, il ne se détruit pas automatiquement. La form principale s'ouvre bien mais si je déplace celle-ci avec la souris, je retrouve mon Splash à l'arrière. Voici le code du dpr :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Application.Initialize;
  Splash := TSplash.create(Application);
  Splash.Show;
  Splash.Update;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TSplash, Splash);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Splash.Close;
  Splash.Release;
  Splash.Hide;
  Application.Run;

Lorsque je fais un

Code :

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

Shell.MinimizeAll;

et qu'ensuite je restore mon application, mon splashscreen est alors au dessus de ma form principale ce qui devient assez embêtant. Si quelqu'un a une idée.

Duan

[Jipété]

Yep !

J'ai ça dans un .dpr :

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
begin
  Screen.Cursor := crAppStart;
  Application.Initialize;
  Application.CreateForm(Tfrm_Splash, frm_Splash);
  frm_Splash.Show;
  frm_Splash.Update;
  Application.Title := 'MonProg';
  Application.HintPause := 0;
  Application.HintHidePause := 10000;
  Application.ShowMainForm := False;
  Application.CreateForm(TMainForm, MainForm);
  Screen.Cursor := crDefault;
  // impossible ici, à faire dans MainForm.Create
//  frm_Splash.Hide;
//  frm_Splash.Free;
  Application.Run;
end.

Mes 2 cts,
--
jp

[Aka Guymelef]

Fait aussi attention que tu crée deux fois ta fiche SplashScreen, en effet une fois manuellement au début puis un peu plus bas avec Application.CreateForm(TSplash, Splash);

Peut-être que c'est ça qui fiche le boxon.

[SergioMaster]

Bien vu pour les deux fois .

de plus je mets toujours Free au lieu de Release;

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Application.initialize;
Splashform:=TSplashForm.create(Application);
SplashForm.Show;
Splashform.Update;
......
 
SplashForm.Hide;
SlashForm.free;
Application.run;

[Duan]

Merci à tous, c'était bien le double appel à la création du SplashScreen qui causait problème. Ceci me permettait toutefois à voir mon splash plus longtemps pour y lire quelques renseignements "Utile copyright ect..Ah la vanité
J'ai mis se post comme résolu vu que la demande principale l'a bien été mais vos réponses me font poser 2 questions:

1-J'ai mis un sleep de 2 secondes pour remplacer, est-ce une bonne solution...

2- À SergioMaster : Pourquoi Free au lieu de Release ?

L'aide Delphi ne préconise t-il pas l'emploi de Release au lieu de Free

Voici le code retouché:

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
 
  SetLastError(NO_ERROR);
  CreateMutex (nil, False, 'PapierPeint');
  if GetLastError = ERROR_ALREADY_EXISTS then Exit;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Splash := TSplash.create(Application);
  Splash.Show;
  Splash.Update;
  Sleep(2000);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Splash.Release;
  Application.Run;

Encore une fois merci de vos réponses

Duan