Discussion :

[[ZiP]]

Bonjour,

Je souhaite développer un programme ayant une fenêtre MDI comme fenêtre principale, un DataModule pour la gestion des composants liés aux bases de données, une fenêtre SplashScreen pendant l'initialisation et une fenêtre d'identification avant d'accéder à la fenêtre principale.

Je suis un peu perdu, comment et dans quel ordre créer les différents objets ?

Pour le SplashScreen, il sera mis en place de la même manière qu'ici : Comment réaliser un splash screen ?

J'ai pensé à un fonctionnement comme décrit ci-dessous :

1. Démarrage du programme
2. Création du SplashScreen
3. Affichage du SplashScreen
4. Création du DataModule
5. Création de la fenêtre d'identification
6. Affichage de la fenêtre d'identification
7. Si identification réussie, création et affichage de la fenêtre principale
8. Fermeture du SplashScreen

Qu'en pensez-vous ?

Avez-vous des conseils ou recommandations concernant ce type de fonctionnement, peut être d'après votre expérience personnelle sur le même type de programme avec identification ?

Merci,
ZiP

[ShaiLeTroll]

Moi cela me parait très bien !

Par contre pour le SplashScreen et la ConnectDialog, n'utilise pas la méthode Application.CreateForm mais une instanciation via le constructeur ... sinon cela modifie la MainForm et donc cela ne fonctionnerait pas !

un sujet similaire : Fermeture de Form2 aprés l'activation de la Form1 à la fin je donne une idée de code pour éviter d'avoir un DPR trop long ...

[[ZiP]]

Bonjour,

Si j'ai bien compris, je dois donc faire :

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
 
begin
  Application.Initialize;
  SplashScreen := TSplashScreen.Create(Application);
  SplashScreen.Show;
  SplashScreen.Update;
  Application.CreateForm(TDM, DM);
  if DM.InitializationComplete then
      Identification := TIdentification.Create(Application);
    else
      MessageDlg(Error);
  Application.CreateForm(TMain, Main);
  SplashScreen.Close;
  SplashScreen.Release;
  Application.Run;
end.

C'est bien ce genre de code que vous évoquiez pour le Create et CreateForm ?

Merci,
ZiP

[ShaiLeTroll]

Effectivement, mais en fait je poussais le vice encore plus loin, c'est d'utiliser des méthodes de classes pour mettre le moins de code dans le DPR, mais comme ça c'est pas mal ...

tu vas vite ajouter ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
    if DM.InitializationComplete then
      Identification := TIdentification.Create(Application);
      try
        if Identification.ShowModal = mrOK then
        else
      finally
        Identification.Free();
      end;
    else
      MessageDlg(Error);

et tu peux imaginer une méthode de classe qui fait tout bien dans une autre unité

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
  Application.Initialize;
  TSplashScreen.ShowSplash(); // dans une autre unité "class procedure TSplashScreen.ShowSplash(); ..." qui fait le Create, le Show, le BringToFront ...
  Application.CreateForm(TDM, DM);
  if DM.InitializationComplete then
  begin
    if TIdentification.Logon() then
      Application.CreateForm(TMain, Main)
    else
      MessageDlg(TIdentification.Error)
  end
  else
    MessageDlg(DM.Error);
 
  SplashScreen.Hide();
  Application.Run;
end.

[[ZiP]]

héhé

OK !

Merci,
ZiP