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

[mafiaente]

hallo,
also ich möchte so ne kleine nöchte-gern-passwortabfrage über einen inputdialog gestalten, indem man dort sein PW eingibt, dies dann mit nem vorher festgelegten string verglichen wird un dann entweder was passiert oder nicht! so mein problem ist jetz wie ich das mache, dass in dem inputdialog solche * kommen wie das so üblich ist! soll ja schließlich nich jeder mein topgeheimes PW sehen^^
hoffe mir kann das jmd näher bringen das in dem feld nur ******* zu sehen is

[sakura]

Schau Dir mal die Eigenschaft PasswordChar vom TEdit im Objektinspektor an

......

[3_of_8]

Setze "PasswordChar" auf #42.

[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]

[gordon freeman]

Hi,
ich wollte mir ein Modal angezeigtes Form bauen, was genau wie nach deiner Anleitung beschrieben angezeigt werden soll. Es wird eine TXT-Datei angezeigt und dann kann das Form mit einem Klick auf den Weiter-Button geschlossen werden. Allerdings schließt sich das Form nicht. Hier der Quelltext:

Delphi-Quellcode:

unit UFrmMsg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TFrmMsg = class(TForm)
    MemoMsg: TMemo;
    BtnContinue: TButton;
    procedure BtnContinueClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    function ShowModal(MsgFilePath : string):boolean;    
  end;

var
  FrmMsg: TFrmMsg;
  aborted : boolean;

implementation

{$R *.DFM}

{ TFrmMsg }

function TFrmMsg.ShowModal(MsgFilePath: string): boolean;
begin
  aborted := true;
  MemoMsg.Clear;
  try
    MemoMsg.Lines.LoadFromFile(MsgFilePath);
  except
    Application.MessageBox('An Error occured opening the file','File not found',MB_OK);
  end;
  inherited ShowModal;
  result := not aborted;
end;

procedure TFrmMsg.BtnContinueClick(Sender: TObject);
begin
  aborted := false;
end;

procedure TFrmMsg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

end.

@Mods Ich weiß, dass gilt: Neue Frage - Neuer Thread, allerdings hängt meine Frage IMHO direkt mit der hier gestellten Frage zusammen. Wenn ihr nicht der Ansicht seit, verschiebt meine Frage bitte in einen geeigneten Bereich.

tia, Martin

[shmia]

Die Passwort Abfrage gibt es schon fix & fertig.
Der Dialog erlaubt nicht nur das Abfragen eines Passworts,
sondern enthält auch einen Passwort-Ändern-Dialog.
Hier die relevanten Properties:

Delphi-Quellcode:

  // PwChange = True:  Change PW Dialog
  // PwChange = False: Input PW Dialog
  property PwChange:Boolean read FPwChange write FPwChange;
  property Caption : string read FCaption write FCaption;
  property OldPassword : string read FOldPassword write FOldPassword;
  property MinLen : integer read FMinLen write FMinLen;
  property NewPassword : string read FNewPassword;

[gordon freeman]

Ich glaube, du hast mich nicht richtig verstanden, ich wollte KEINEN Passwortdialog, sondern nur vom Gedanken her einen Modal-Dialog, in dem ein Memo mit Text angezeigt wird und der nach dem Klick auf einen Button verschwindet. Leider funktioniert es nicht so, wie es oben beschrieben wurde, das ist mein Problem.

[Khabarakh]

Zitat von gordon freeman:

[...]und dann kann das Form mit einem Klick auf den Weiter-Button geschlossen werden.

Nunja, dann solltest du auch genau das noch in den Quelltext einfügen .

[gordon freeman]

Wofür dann diese "aborted" Variable, das habe ich noch nicht verstanden. Ist die dann nicht überflüssig?

[Khabarakh]

Diente zur Unterscheidung zwischen OK und Abbrechen. Und wenn, dann bitte als privates Feld .