Delphi InputBox für Passworteingabe?

Inputbox:

answer:=Inputbox('a','b','c');

funktioniert gut, aber ich bin auf der Suche nach einem maskierten man, wie ein Passwort-Feld, wo sehen Sie nur Sternchen statt der eingegebenen Zeichen.

InformationsquelleAutor Arthur | 2009-02-26

  1. 25

    Senden Sie eine Windows-Nachricht an das edit-Steuerelement erstellt, indem InputBox, das wird markieren Sie die edit-control zur Eingabe von Passwörtern. Code unten entnommen http://www.swissdelphicenter.ch/en/showcode.php?id=1208:

    const
   InputBoxMessage = WM_USER + 200;

type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;
   public
   end;

var
   Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);
var
   hInputForm, hEdit, hButton: HWND;
begin
   hInputForm := Screen.Forms[0].Handle;
   if (hInputForm <> 0) then
   begin
     hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
     {
       //Change button text:
       hButton := FindWindowEx(hInputForm, 0, 'TButton', nil);
       SendMessage(hButton, WM_SETTEXT, 0, Integer(PChar('Cancel')));
     }
     SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   InputString: string;
begin
   PostMessage(Handle, InputBoxMessage, 0, 0);
   InputString := InputBox('Input Box', 'Please Enter a Password', '');
end;
    Wow!!! elegante Art und Weise zu verschieben, Ausführung 🙂

    InformationsquelleAutor overslacked

  2. 30

    In XE2, InputBox() und InputQuery() wurden aktualisiert, um native Unterstützung für die Maskierung der TEdit Eingang, obwohl das feature ist nicht dokumentiert wurde, noch. Wenn das erste Zeichen des APrompt parameter ist ein Wert < #32 dann die TEdit.PasswordChar auf *, zB:

    answer := InputBox('a', #31'b', 'c');
    Nun, das ist intuitiv!
    Sie ging auf die Schwierigkeiten der Erweiterung InputQuery() (die InputBox() intern verwendet) mit den neuen Parametern für multi-Aufforderungen und ein OnCloseQuery Rückruf, aber Sie konnte nicht belästigt werden, erstellen Sie einen neuen parameter für die Angabe von Passwort-Maskierung? Die multi-fordert die Unterstützung pro-Eingabeaufforderung Maskierung, aber Sie konnten gemacht haben, dass das interface noch intuitiver. Anstatt ein array von strings mit Spezial-Blei-Zeichen, die Sie haben sollten, verwendet ein array von records, die die Zeichenkette/Maske Paare. Das wäre nicht einmal erlaubt haben, die künftigen Felder Hinzugefügt werden, für eine feinere Kontrolle über die TEdit kontrolliert. Aber NÖ.

    InformationsquelleAutor Remy Lebeau

  3. 9

    InputBox Aufrufe der Funktion InputQuery in Dialogen, die schafft die form dynamisch. Sie konnte immer machen Sie eine Kopie dieser Funktion, und ändern Sie die TEdit ' s PasswordChar-Eigenschaft.

    InformationsquelleAutor Bruce McGee

  4. 3

    Ich glaube nicht, dass Delphi enthält, wie ein Ding aus der box. Vielleicht findest du eine bei http://www.torry.net/ oder anderswo im Netz. Ansonsten einfach selbst einen schreiben - sollte nicht so schwer sein. 🙂 Sie können sogar einen Blick auf den source-code, wenn Sie "groß genug" Delphi-version.

    Uli.

    InformationsquelleAutor Uli Gerhardt

  5. 0

    Können Sie InputQuery statt der InputBox. Wenn der WAHRE argument ist, Passwort-Feld maskiert.

    InputQuery('Authenticate', 'Password:',TRUE, value);

    Einige Ressourcen hier; http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputquery.html

    InformationsquelleAutor PodTech.io

Schreibe einen Kommentar