Inputbox Eingabe als "*********"

[xZise]

@ Vorposter:

Zitat von mafiaente:

also ich möchte so ne kleine nöchte-gern-passwortabfrage über einen inputdialog gestalten

@ Thread:
Erstelle eine neue Form, und benutzte da den Tipp von oben.

[edit]Mal eine Anleitung:
- Erstelle eine public-function "ShowModal" mit einen Boolean als Rückgabewert
- Erstelle eine Variable (oder Property) "Password" (o.s.ä.) von dem Typ "string"
- Erstelle eine private Variable "Aborted" (o.s.ä.) vom Typ Boolean
- Schreibe in der ShowModalFunktion:

Delphi-Quellcode:

ePW.text := '':
aborted := true;
inherited ShowModal;
Result := not aborted;

ePW ist das Edit in den man das Passwort schreibt.
- Schreibe beim Klick auf den Button "OK" folgenden Code:

Delphi-Quellcode:

Password := ePW.Text;
aborted := false;

- Jetzt kann man in der Hauptanwendung die Form aufrufen fast so wie ein Dialog

Delphi-Quellcode:

if frmPW.ShowModal then
  PW := frmPW.Password;

[/edit]