Discussion :

[en-one]

bonjour,

Comme j'ai bientôt une épreuve de delphi, je veux m'entrainer...alors j'ai pensé a faire une application qui réunit les trucs qu'on a appris,

J'ai essayé de lire les tutos, mais je préfère l'explication explicite de mon prof de ouf

Mais en revanche, je veux faire un truc, qu'on a pas encore fait...

J'ai créer une page avec un deux labels (login & password)


c'est comment, que quand je clique sur suivant, une autre fiche viens ??

Voila le code source :

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
58
59
60
61
62
63
64
{ *****************************************************************************
     Auteur            Ibram Adnane
     Description       Mon petit monde a moi, ou je mets pass  :P
     Version/ Date     1.0   /  2 Novembre 2008
     Commentaire :      
*******************************************************************************}
 
 
 
unit Unit_Test;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edt_login: TEdit;
    edt_pw: TEdit;
    btn_ok1: TButton;
    btn_ok2: TButton;
    btn_suivant: TButton;
    procedure btn_ok2Click(Sender: TObject);
    procedure btn_ok1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 //*il faut que je tape le bon login "Adnane", pour pouvoir taper le PW
 //*sinon un message d'erreur apparait
procedure TForm1.btn_ok1Click(Sender: TObject);
//*Si je tape Adanane, je pourrais taper mon pass, sinon, message d'erreur
begin
 if edt_login.Text = 'Adnane' then
  edt_pw.Enabled:= TRUE
 else showmessage('Veuillez essayer un autre Login!');
//*Si je tape Adnane, j'active le 2eme bouton Ok
 if edt_login.Text = 'Adnane' then
  btn_ok2.Enabled:= TRUE;
 
 
end;
//* Il faut que je rentre le bon PW pour pouvoir rentrer chez moi :P
procedure TForm1.btn_ok2Click(Sender: TObject);
//*Si je mets Ibram comme passe, j'accède chez moi, sinon message d'erreur
begin
 if edt_pw.Text = 'Ibram' then
  showmessage('Bienvenue chez vous')
 else showmessage('Veuillez essayer un autre Mot de passe');
end;
 
end.

[en-one]

Ah oui, Désolé, j'avais pas trouvé le # pour mettre mon code....

espérant que l'un de vous puisse répondre à mes requêtes.

[Just-Soft]

Salut;

d'abord faut créer ta deuxième fiche comme tu l'as fait pour la première. puis sur un bouton faut renseigner le OnClick de celui-ci par ShowModal.

C'est tout.

Bon codage.

[en-one]

Je sais pas encore comment faire :s

je ne trouve ni le OnClick ni le ShowModal.

Merci

[Fxg]

Pourtant le onClick tu l'as déjà utilisé

Code :

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

procedure TForm1.btn_ok1Click(Sender: TObject);

et pour faire apparaitre ta deuxième form

Code :

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

Form2.showmodal;

Sinon je te conseille vraiment de lire les tutos et d'appuyer sur F1

[en-one]

je dois mettre quels code dans quels fiche, la fiche 1 ou la 2?

merci

[Fxg]

Si ton bouton est sur la fiche 1 alors évidemement l'évenement onclick lié à ce bouton sera sur la fiche 1 et dans cette procédure tu auras

Code :

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

Form2.showmodal;

instruction qui fera apparaitre ta fiche 2.

[Lung]

Sinon, un peu de lecture utile :
http://fbeaulieu.developpez.com/guide/
http://delphi.developpez.com/cours/complet/