Boite de dialogue sur ouverture de l'appli

**User** · 13/05/2007, 23h33

Bonsoir,

Je souhaiterai afficher une boite de dialogue présentant mon appli (MDI),
une fenêtre de bienvenue...
avant l'ouverture proprement dit de mon appli,

Comment feriez-vous ?

Merci par avance !

**Mihalis** · 14/05/2007, 07h04

bonjour
moi j'ai ceci sur le create de la première form(presentation)

Code :

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

1
2
3
4
 
show;                                              // Affiche la feuille,
update;
Application.CreateForm(Tx, x);       // Passe la main

puis je la ferme lorsque tout est chargé ou si c'est juste une présentation tu peux la fermer directement dans ta form avec le createform

**Cl@udius** · 14/05/2007, 10h42

salut

Tu as une QR dans la FAQ pour réaliser un Splash Screen.

@+ Claudius

**Fabrice ROUXEL 1** · 14/05/2007, 13h04

Tu peux également ajouter une progressBar incrémentée à chaque création de fiche (code à placer dans le source du fichier projet)

**User** · 14/05/2007, 16h12

Merci à vous !

Je vous précise les choses:

Je souhaiterai que cette fenêtre de démarrage soit une fenêtre de log,
qui s'affiche avant le démarrage de mon appli MDI:

------------------------

User: User1
Mot de pass: ********

avec un bouton OK

-----------------------

et quand l'utilisateur click sur ok -> l'application démarre

@+

**Issam** · 14/05/2007, 16h19

dans le on show de ta form principale tu crée ta form de login :

**User** · 14/05/2007, 16h44

Merci,

Issam,

j'ai mis:

Code :

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

1
2
3
4
5
procedure TMDIMain.FormShow(Sender: TObject);
begin
Application.CreateForm(TForm_Login, Form_Login);
Form_Login.Show
end;

ca marche mais ma boite login apparait au dessus de la fenêtre MDI,

est t-il possible de faire apparaitre ma boite login au tout debut, avant le chargement et l'affichage de toutes les autres fenêtre ???

Merci,

@+

**Lung** · 14/05/2007, 17h53

Cl@udius t'avait donné une piste. Tu es allé voir dans la FAQ ?

Moi, je fais quelque chose comme çà :

Code :

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

1
2
3
4
5
6
7
8
9
10
      FormLogin := TFormLogin.Create(Application);
      try
         if FormLogin.ShowModal = mrCancel then
         begin
            Application.Terminate;
            Exit;
         end;
      finally
         FormLogin.Free;
      end;