Discussion :

[vg-matrix]

Je developpe une application qui debute par la saisie d'un mot de passe. Je veux qu'en appuyant sur OK après la saisie d'un mot passe correcte, la fenetre du mot de passe se ferme et appelle celle de la fenetre principale, du genre:

Code :

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

1
2
3
4
5
if edpass.text='12345' then
begin
    ..................;//Code pour la fermeture de la fenetre du mot de passe
    form2.show;
end;

Merci d'avance...

[Issam]

voila une fonction que j'utilise :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Procedure TMainForm.DBConnect;
var
      aform : Tloginform;
      b : boolean;
     _Exit : Boolean;
Begin
_Exit := False;
B:=true;
 
Aform:=Tloginform.create(nil);
try
    if aform.ShowModal= mrok then
    With dm.db Do
    Begin
        Params.Clear;
        Params.Values['user_name'] :=  aform.Useredit.text;
        Params.Values['password']   :=  aform.Passedit.Text;
 
        Try
          connected:=true;
        except
 
        ON E: EIBError do
        begin
            b:=false;
            case e.IBErrorCode of
            335544472:begin messagedlg('               Nom d''utilisateur ou mot de passe incorrect !'+#13#10+
            'Vérifiez votre nom utilisateur et votre mot de passe et réessayez à nouveau',mterror,[mbok],0);
            end;
 
             335544721 :begin MessageDlg('          Impossible de se connecter au serveur <b> FireBird</b> !'+#13#10+ #13#10+
            'Vérifiez que le serveur est bien démarré et réessayez à nouveau',mterror,[mbok],0);
                        // Config; 
            end;
 
            335544344 : Begin
                          messagedlg('Base de données Introuvable !'+#13#10+ #13#10+
                          '<b>Chemin :</b> '+dm.DB.DatabaseName, mterror,[mbok],0);
                        //   Config;
                        end;
 
        end;
 
        end;
 
        end;
    End
    else
    _Exit := True;
finally
   aform.free;
end;
 
if _Exit then Application.Terminate;
if not b then DBConnect;
 
end;

tu mes ça dans le onshow de ta form principale

[guillemouze]

tu peux aussi le mettre directement dans ton dpr:

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
 
 
function CheckPassword: Boolean;
begin
  Result := false;
  with TFrmPass.create do
  try
    if showmodal = mrok then
      Result := true;
  finally
    free;
  end;
end;
 
 
begin
  Application.Initialize;
  if CheckPassword then
  begin
    Application.CreateForm(TMainForm, MainForm);
    Application.run; 
  end;
end;

[kumo]

ça depend de tes form, si ta form1 est celle du mot de passe, tu ne peux pas la fermer vu que c'est ta form principale, si tu la ferme, ton projet entier se fermera.
Cependant maintenant si tu veux, voilà l'instruction qu'il faut utiliser pour la fermer

Code :

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

1
2
3
4
5
if edpass.text='12345' then
begin
    form1.close;//Code pour la fermeture de la fenetre du mot de passe
    form2.show;
end;

Mais bon comme je te l'ai dis, si tu fais ça, ton projet se fermera completement car ta form1 est la form principale

[ShaiLeTroll]

Sujet déjà présent sur le forum, pensez à la recherche comme
"Fermeture de Form2 aprés l'activation de la Form1"

[bingo06260]

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(Handle,0);
end;

[Coussati]

ou tu fais disparaitre la form1

form1.visible := false;
form2.show;