Discussion :

[patrice@]

Bonsoir à tous,

Je suis tombé sur la source suivante et je me suis dis "chouette, c'est super pour faire patienter"

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
23
24
25
26
27
28
29
30
31
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Accueil};
 
{$R *.RES}
 
begin
  Application.Initialize;
  // Creation de la form Accueil
  with TAccueil.Create(nil) do
  try
    Show;   // Affiche l'écran de démarrage Accueil
    Update; // Force l'affichage  de Accueil
    // Creation des autres forms
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.CreateForm(TForm3, Form3);
    Application.CreateForm(TForm4, Form4);
    Application.CreateForm(TForm5, Form5);
  finally
    Free;  // ferme et libère l'écran de démarrage Accueil
  end;
  Application.Run;
end.

J'ai juste rajouté Application.ProcessMessages après le Show, car j'avais un carré gris à la place de la fenêtre.

Mais ... je suis confronté à 2 soucis :
1) contrairement à ce qui est dit dans la conclusion du post, impossible de rafraichir mon label, il marque le message du début et il ne change pas malgré l'utilisation de repaint parce qu'update ne fonctionnait pas. J'ai rajouté Application.ProcessMessages, rien y fait.

2) plus embêtant, lorsque la fiche principale s'ouvre, l'écran d’accueil n'est pas libéré, il est toujours là. J'ai essayé de mettre sa propriété en visible:=false avant de faire un free, rien, j'ai rajouté Application.ProcessMessages, rien. J'ai essayé de mettre visible à false lors de l'affichage de la 1ere fiche, mais en suivant le code, il le voit déjà à false, donc rien non plus.

Heuuu .... y a t-il une solution (autre ou pas) pour faire un écran d’accueil qui s'éteigne quand le programme est lancé ?

[petitcoucou31]

bonjour,

Comme tu le vois dans ton exemple, cette fenêtre d'attente est crée en dans le programme principal et avant la création des autres fiches de ton projet, et cela devrait fonctionner..
J'utilise aussi cette méthode assez proche, mais ma fenêtre d'attente est crée en dynamique et pour modifier son contenu (comme afficher une progression...) j’exécute ces modifications dans les "Oncreate" des fiches suivantes.. donc ces modifications sont exécutées durant les créations de ces fiches.
Pour fermer ensuite cette fenêtre d'attente, tu dois la fermer dans le programme principal par exemple à la fin de toutes les créations des fiches.

bonne soirée

[SergioMaster]

Bonjour,

il faut faire des recherches avec le mot clé splashscreen pour avoir plus d'informations sur le net.

ici un exemple avec comme premier écran FORMPASS un slapshscreen qui demande un mot de passe

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
23
24
25
26
27
28
29
30
31
32
33
 
program SuiviPaiements;
 
uses
 ...
  FonctionsCommunes in '..\FonctionsCommunes.pas',
  MainUnit in 'MainUnit.pas' {Main},
  UnitDatas in 'UnitDatas.pas' {Datas: TDataModule},
  UnitParam in 'UnitParam.pas' {FormParam},
  UnitParamConnexion in 'UnitParamConnexion.pas' {FormConnexion},
  UnitPaiements in 'UnitPaiements.pas' {FormPaiement},
  UnitParamSQL in 'UnitParamSQL.pas' {FParamSQL},
  UnitSplash in '..\UnitSplash.pas' {FormSplash},
  UnitHistorique in 'UnitHistorique.pas' {FormHistorique},
  UnitPass in 'UnitPass.pas' {FormPass},
  UnitRelance in 'UnitRelance.pas' {FormRelance},
  UnitTableauBord in 'UnitTableauBord.pas' {FormTableauBord},
  ListViewSearchAdapter in '..\ListViewSearchAdapter.pas',
  SearchListViewInterface in '..\SearchListViewInterface.pas';
 
{$R *.res}
 
begin
  Application.Initialize;
  FormPass := TFormPass.Create(nil) ; // saisie + controle mot de passe (3 essais)
  if FormPass.ShowModal=1 then
    begin
     FormPass.Free;
     Application.CreateForm(TFormSplash, FormSplash); // splashscreen suite, simple temporisation mais qui va charger la forme principale du projet 
     Application.Run;
    end
  else FormPass.Free;
end.

A remarquer, je ne suis pas un adepte de création de toutes les formes de l'application

[patrice@]

Bonjour petitcoucou31
Bonjour SergioMaster (6h41 ce matin ... wouahhh)

Merci à tous les 2.
J'ai fait une recherche sur "splashscreen" et je suis tombé sur un petit tuto qui disait de déplacer le formulaire de la zone de liste "Fiches créées automatiquement" vers "Fiches disponibles".
Et bingo, ça a fonctionné.
Maintenant il faut que je cherche la différence entre les 2 car je n'ai jamais prêté attention à ça. Je mets tout en fiches crées automatiquement ...

Le code de SergioMaster m'ouvre des perspectives, je ne savais pas que l'on pouvait utiliser cette partie du programme.

Merci à tous les 2.
Je note la remarque de SergioMaster sur la possibilité de créer les forms quand on en a besoin ... du coup, j'imagine que ça allège la mémoire (?)

[SergioMaster]

SergioMaster (6h41 ce matin ... wouahhh)

je suis un lève tôt, mais aussi un couche tôt (douleurs obligent)

Le code de SergioMaster m'ouvre des perspectives, je ne savais pas que l'on pouvait utiliser cette partie du programme.

disons plutôt utiliser le source du projet.

Je note la remarque de SergioMaster sur la possibilité de créer les forms quand on en a besoin ... du coup, j'imagine que ça allège la mémoire (?)

pas que, cela évite aussi des fenêtres inaccessibles parce que cachées derrière d'autres, un truc qui m'a toujours énervé

Va faire un tour sur mon tuto les diverses techniques pour "enchainer" les formes

[patrice@]

Merci SergioMaster,

Effectivement, je comprends mieux. Très bon tuto
Mais alors, les fiches qui sont créées plus tard dans le programme, on doit les mettre dans quelle liste : "Fiches créées automatiquement" ou "Fiches disponibles"

[SergioMaster]

Très bon tuto

Merci tout encouragement est bienvenu car il n'est pas si facile que ça de rédiger des tutoriels ou même des billets.

Pour répondre à la question : Dans les fiches disponibles, en passant par les options du projet, soit en modifiant le source du projet en enlevant les Application.createform(....)

[patrice@]

Merci SergioMaster, je pense que je comprends mieux ...

Si je résume :
- dans la liste "Fiches créées automatiquement" nous allons trouver les fiches créées dans le source du projet par Application.createform(....)
- dans la liste "Fiches disponibles" nous allons avoir les fiches créées ailleurs dans le programme (par appuie sur un bouton ou autre)

Et pour un splashscreen, la fiche doit être dans la liste "Fiches disponibles" car c'est nous qui appelons sa création dans le source du projet.

C'est bien résumé ?

[SergioMaster]

Absolument (à l'eau)

[patrice@]

Et bien voilà une interrogation brillamment résolue.
Merci SergioMaster de tout tes éclaircissements.
Et si ça peut aider quelqu'un d'autre ... c'est super!