Discussion :

[pierrot67]

bonjour

j'ai un splashscreen qui reste ouvert derrière mon appli j'ai bien un :

Code :

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

1
2
splash.form5.free
Application.Run

avant

mais il reste toujours ouvert j'ai tout essayé : close; destroy rien y fait il reste toujours ouvert


Merci d'avance

[N1bus]

Tu devrais essayer avec un timer (enabled au chargement) et close:

Code :

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

1
2
3
4
5
6
 
procedure TSplash.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
Close;
end;

[pierrot67]

oui mais je ne veut pas mettre de timer j'ai un tgauge dans le screen
je ne comprends pas pourquoi ma form ne se ferme pas

[MCoder]

Tu as oublié une étape importante. Il faut aller dans les options de ton projet et mettre la fiche SplashScreen dans la partie "Fiches disponibles".

Dans Delphi 5 la démarche est celle-ci :
Projet-> Options...-> dans la fenêtre "Options de projet" qui s'affiche, sélectionne ta fiche Splash et clique sur le bouton fléché vers la droite ensuite sur le bouton "Ok" et recompile ton projet.

Bon dév.

[pierrot67]

Elle y est justement et ça ne marche pas

[Cl@udius]

Salut

En nous montrant le contenu de ton .dpr que je pense qu'on pourra y voir plus clair.
Donne-nous les lignes situées entre le Application.Initialize et le Application.Run.

Personnellement mon dpr ressemble à ceci lorsque j'y inclus un Splash:

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
 
begin
  Application.Initialize;
 
  FormSplash := TFormSplash.Create(Application);
  FormSplash.Show;
  FormSplash.Update;
 
  Application.CreateForm(TForm1, Form1);
 
  FormSplash.Hide;
  FormSplash.Free;
 
  Application.Run;
end.

D'ailleurs ce code doit être dans la FAQ, si j'ai bonne mémoire.

@+ Claudius

[MCoder]

Moi je fais ça et ça marche sur toutes mes applications :

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
 
Application.Initialize;
 
MonLogo := TMonLogo.Create(Application);
MonLogo.Show;
MonLogo.UpDate;
Sleep(3000); //... par exemple
 
//... Création de mes Forms
//...       ......
 
MonLogo.Hide;
MonLogo.Free;
 
Application.Run;

Bon dév.