Discussion :

[yamino]

Bonjour,

J'ai un programme avec login et mot de passe. Pour éviter que ma form principale soit celle du mot de passe j'ai le code de démarrage suivant :

Code :

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

1
2
3
4
5
6
7
8
9
  SetLastError(NO_ERROR);
  CreateMutex(nil, False, 'MonProg'); // empêche la double exécution du programme
  if GetLastError = ERROR_ALREADY_EXISTS
    then Exit;
  Application.Initialize;
  ShowWindow(Application.Handle, SW_SHOW);
  Application.CreateForm(TfrmDataModule, frmDataModule);
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;

dans le OnCreate de mon frmMain j'ai ceci :

Code :

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

1
2
  Application.CreateForm(TfrmLogon, frmLogon);
  frmLogon.Show;

Je ne sais pas si c'est dû à ça mais maintenant que je crée dynamiquement mes autres form j'ai le bouton de la barre des tâche qui disparait...
Si je ferme les fenêtres il ré-apparrait
Je crée mes form comme ceci :

Code :

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

1
2
3
  Application.CreateForm(TfrmStatus, frmStatus);
  frmStatus.ShowModal;
  frmStatus.Destroy;

Vous avez une idée d'ou celà peut provenir ?
Peut-on créer une fenêtre avec Login et Mot de passe dans un SplachSreen ? Si oui est ce que celà va résoudre mon problème ?

[Kaféine]

Salut

pourquoi ne pas les créer en écrivant simplement:

Code :

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

1
2
3
4
5
6
7
 
 with TfrmStatus.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;

[yamino]

Tout simplement parce que je ne connaissais pas cette façon de faire

Ca m'a l'air de tout de suite mieux fonctionner...

Qu'elle est la différence dans ta façon de faire et la mienne ?

[Kaféine]

Code :

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

1
2
3
4
5
6
7
 
  Application.CreateForm(TfrmStatus, fmStatus);
  try
    frmStatus.ShowModal;
  finally
    frmStatus.Free;
  end;

Code :

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

1
2
3
4
5
6
7
 
 frmStatus := TfrmStatus.Create(Application);
 with frmStatus do
  try
      showmodal;
  finally 
     Free;

autant de maniere pour instancier la form sans que ma barre des taches disparaisse

Peut-on créer une fenêtre avec Login et Mot de passe dans un SplachSreen

c'est plus un splashscreen alors !

sinon tu peux faire apparaitre la fenetre de login apres afficher de la mainform a l'aide d'un message windows aftershow par example

[yamino]

je viens d'essayer les 2 propositions que tu me proposes et ma barre des taches disparrait...

j'ai crié un peu trop vite que ça fonctionnait tantôt. En fait à partir de mon frmMain ça fonctionne très bien par contre si je fais appel à une form créé à partir de la façon dont tu m'as donné rien n'apparait...

Si tu veux mais form doivent être appelée aussi bien du frmMain que d'une autre form créée dynamiquement

[yamino]

Apparemment avec ceci ça fonctionne

Code :

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

1
2
3
4
5
6
 frmStatus := TfrmStatus.Create(Application);
 with frmStatus do
  try
      showmodal;
  finally 
     Free;

je comprends pas pourquoi seulement...

[Kaféine]

Hummm, La je ne peux que te dire que l'explication est dans ton code....
Désolé.

[yamino]

Le principal c'est que celà fonctionne
Je te remercie pour ton aide...