Discussion :

[Jean-Jacques Engels]

Hi,

Voici mon problème : dans un environnement MDI, après l'affichage de la MainForm, je souhaiterais afficher immédiatement et automatiquement une fenêtre qui permette de saisir un nom d'utilisateur et un password. J'arrive à afficher la fenêtre password, mais je n'arrive pas à lui donner le focus (qui reste sur la MainForm )

Une idée ?

Merci



JJE

[Jean-Jacques Engels]

C'est résolu, merci.



JJE

[dehorter olivier]

bonjour

as tu pense a utiliser

Code :

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

fForm.SetFocus

ou

Code :

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

fForm.BringToFront

[Jean-Jacques Engels]

En fait ma solution au départ était la suivante, mais la form principale ne s'affichait pas :

Code :

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

1
2
3
4
procedure TfrmMainForm.FormCreate(Sender: TObject);
begin
  Application.CreateForm(TdlgLogin, dlgLogin);
end;

J'ai donc résolu comme suit :

Code :

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

1
2
3
4
5
procedure TfrmMainForm.FormCreate(Sender: TObject);
begin
  Self.Show;
  Application.CreateForm(TdlgLogin, dlgLogin);
end;

Mais je me rend compte à présent que quand je ferme dlgLogin, frmMainForm se ferme aussi. Donc toujours pas résolu !



Groupir

[dehorter olivier]

re

j'ai le meme type d'application mais elle n'est pas MDI


j'ai fais comme cela :

dans l'evenement OnActivate de la fenetre principale je cree la form "password"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
IF NOT Connection THEN  // pour pouvoir tenir compte de la deconnexion, puis de la connexion d'un autre user
begin
            IF Application.FindComponent('fpassword') = NIL THEN
            BEGIN
                fpassword := Tfpassword.Create(Application);
                fpassword.ShowModal;
            END
            ELSE
            BEGIN
                fpassword.BringToFront;
            END;
END;

la variable devient True si le mot de passe est correct


a+

[Jean-Jacques Engels]

Merci Olivier.

J'ai finalement résolu le problème en déclarant dlgLogin.FormStyle=fsMDIChild puis dans le .dpr :

Code :

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

1
2
3
4
5
6
7
begin
  Application.Initialize;
  Application.CreateForm(TfrmMainForm, frmMainForm);
  ...
  Application.CreateForm(TdlgLogin, dlgLogin);
  Application.Run;
end.

Ça fonctionne, mais je ne mets pas encore le flag résolu tant que tout n'est pas correctement testé .



JJE

[mick605]

En fait ma solution au départ était la suivante, mais la form principale ne s'affichait pas :

Code :

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

1
2
3
4
procedure TfrmMainForm.FormCreate(Sender: TObject);
begin
  Application.CreateForm(TdlgLogin, dlgLogin);
end;

J'ai donc résolu comme suit :

Code :

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

1
2
3
4
5
procedure TfrmMainForm.FormCreate(Sender: TObject);
begin
  Self.Show;
  Application.CreateForm(TdlgLogin, dlgLogin);
end;

Mais je me rend compte à présent que quand je ferme dlgLogin, frmMainForm se ferme aussi. Donc toujours pas résolu !



Groupir

Salut

J'ai déja eu ce probleme. Le truc, c'est que la première form créée par Application.CreateForm sera la form principale, c'est a dire que quand on ferme cette form, l'application se termine. Pour eviter ca, il suffit de remplacer

Code :

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

Application.CreateForm(TdlgLogin, dlgLogin);

par

Code :

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

dlgLogin:=TdlgLogin.Create(nil);

Bonne chance