Equivalent de la fonction Inputbox pour confirmer un mot de passe

Réponse acceptée !
Bonjour,
il n'existe pas à ma connaissance de fonction pour afficher une fiche d'entrée de mot de passe. Néanmoins, Borland à pensé à nous et a implémenté une sympathique fiche préfaite : va dans Fichier => Nouveau => Autre puis cherche dans l'onglet "Dialogues" puis sélectionne "Dialogue Mot de Passe".

CAD créer une nouvelle fiche, ce que tu voulais éviter je crois :/
C'est vrai que c'est pas pratique et qu'une fiche est encombrante.
Tu peux aussi essayer de créer ta propre fonction qui afficherait une InputBox, avec protection et masque du mot de passe (regarde le code de InputQuery/Box ...)

J'espère t'avoir aidé !

Bonne chance ...

Cordialement, Bacterius !

Réponse acceptée !
Salut !

En utilisant CreateMessageDialog, tu peux créer dynamiquement une fiche qui contiendra ce que tu veux dedans, donc par exemple un TEdit avec PasswordChar = '*'.

De toutes façons, un inputbox reste une form.
L'avantage de ma méthode par rapport à la fiche "traditionnelle", c'est que celle-ci ne reste pas en mémoire continuellement: elle est libérée après chaque utilisation.

Par contre, c'est un peu plus long à coder.
Voir une exemple ici: http://www.delphifr.com/codes/UTILISATION-FONCTION-CREATEMESSAGEDIALOG_20425.aspx

A+
Flo

Réponse acceptée !
Bonjour, bien sur !

Il te faudra déclarer Form1 dans ta clause Uses :

quand tu vois "implementation", tu mets après :

uses (le nom de l'unité de ta première fenêtre [en général je l'appelle "main"]);

Il te faudra créer une nouvelle procédure, appellons la "Finished", tu la mets dans la fiche mère (celle qui n'est pas la fenêtre au mot de passe) et elle sera appellée quand l'utilisateur cliquera sur OK. Elle contiendra l'equivalent de ce que tu mets après le "IF" de ton InputBox !

Alors dans la fenêtre mère :

procedure TForm1.Finished;
begin
     *le code après ton IF habituel*
end;

procedure Button1Click(Sender: TObject);
begin
     // Correspond au code qui appelle la fenêtre (a partir d'un bouton par exemple)
     Form2.ShowModal;
end;


Dans la fenêtre fiche, quand on clique sur le bouton OK

procedure OKClick(Sender: TObject);
begin
     Finished; // On appelle la procédure
     Close; // On ferme
end;

N'oublie pas de déclarer ta fenêtre mère dans la fenêtre au mot de passe, sinon ca ne marchera pas.

Je te laisse trouver le reste, sinon c'est trop facile :p

Cordialement, Bacterius !

PS : je me suis surement très mal exprimé : indique-nous ce que tu n'as pas compris, et je te réexpliquerai !