-Une Form
-Un Bouton
-Utilise: Form1.OnActivate
Source / Exemple :
var
Form1: TForm1;
I:integer;{var utiliser pour nbr de fois}
implementation
uses Unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var pass: string;{variable password}
begin
i:=(i+1);{chaque fois que l'ont appuie sur le bouton on ajoute1 à I}
if i < 3{si on esayer moins de trois fois}
then
begin
pass := inputbox('Activez les autres options','Entrez votre mots de pass :','');
if pass = '1213'{si le mots de pass et juste}
then{alors}
begin
form2.show;{Effectue les opérations dans se cas ouvre la form2}
end
else{sinon}
if pass = ''{si la personne n'a rien entré}
then{alors}
begin
beep;
messagedlg('Veuillez entrer un mots de pass... Encore : '+IntToStr(2-I)+' essai',mtWarning,[mbOK],0);{entrer un mots de pass}
end
else{sinon}
if (pass <> '') and (pass <>'1213'){si mauvais mots de pass}
then{alors}
begin
beep;
messagedlg('Mauvais mots de pass !!! Encore : '+IntToStr(2-I)+' essai',mtError,[mbOK],0);{mauvais mots de pass}
end
end
else
begin
beep;
messagedlg('Vous avez fait trop de mots de pass faux !!!',mtError,[mbOK],0);
end;;;;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
i:=-1;{Donnée au chargement de la form}
end;
end.
Conclusion :
Voilà suite du password logique N°1
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.