Inputbox mit Passwordchar

[Damaster]

Hallo Leute!

Ich suche eine Komponente wie das Inputquery, in der ich den Text als "*" darstellen kann.
Oder gibt es vll eine Möglichkeit das bei einem Inputquery einzustellen, da es ja nicht im OI aufgeführt wird.

MfG
Damaster

[Xong]

Ich weiß zwar nicht, was du mit Inputquery meinst, aber du kannst doch im OnKeyDown-Event das Sternchen setzen und dir die eigentliche Eingabe merken.

Oder du benutzt ein gleich eine Komponente, die deine Anforderungen erfüllt.

[dominikkv]

TEdit kann das auch... Musst nur PasswortChar (oder wie das heißt^^) auf * setzem

[Damaster]

Das ist soweit ja auch klar.
Ein Inputquery ist ein Popup-Dialog, in dem der Benutzer eine Eingabe tätigen kann. Also ein Dialog, der aus einem "Editfeld" und 2 Buttons besteht. Das Problem ist das man ihn wie eine Funktion aufruft.
Also kann ich da nirgends Passwordchar einstellen.
Trotzdem Danke für die schnellen Antworten.

[Xong]

Dann seh ich im Moment keine andere Möglichkeit als dieses Inputquery selbst nachzubilden und nicht auf die vorgefertigte Funktion zuzugreifen.

[Damaster]

ok, das werde ich dann wohl heute Abend mal tun.

Trotzdem Danke!

[dominikkv]

mir fällt da noch der TAdvQueryDialog von TMS ein...

edit: und wenn dus selber machen willst: klick

[Union]

Und wenn Du InputQuery unbedingt ohne Änderung nutzen willst, kannst Du die eingesparte Zeit wieder vergeuden indem Du z.B. einen Thread erstellst, der Dir das Edit für die Passworteingabe patcht ;)

Delphi-Quellcode:

unit Unit1;

interface

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

type

  TSetPasswordCharThread = class(TThread)
  private
    FWindowTitle : string;
    FSecondsToWait : extended;
    FPasswordChar : char;
  public
     constructor Create(AWindowTitle : string);
     procedure Execute; override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses dateutils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   APassword : string;
begin
   APassword := StringOfChar(#32, 10);
   // Suche nach dem Fenster über den Titel und Edits mit Passwordchar patchen
   TSetPasswordCharThread.Create('Authentifizierung');
   InputQuery('Authentifizierung', 'Passwort', APassword);
end;

{ TSetPasswordCharThread }

function EnumChildProc(Wnd: hWnd; PwdChar : Longint): BOOL; stdcall;
var
   szFull: array[0..MAX_PATH] of Char;
begin
   Result := Wnd <> 0;
   if Result then
   begin
      GetClassName(Wnd, szFull, SizeOf(szFull));
      if AnsiUppercase(szFull) = 'TEDIT' then
         SendMessage(Wnd, EM_SETPASSWORDCHAR, PwdChar, 0);
      EnumChildWindows(Wnd, @EnumChildProc, PwdChar);
   end;
end;

constructor TSetPasswordCharThread.Create(AWindowTitle : string);
begin
   inherited Create(True);
   FreeOnTerminate := true;
   FWindowTitle    := AWindowTitle;
   FSecondsToWait  := 3;
   FPasswordChar   := '*';
   Resume;
end;

procedure TSetPasswordCharThread.Execute;
var
   StartTime : TDateTime;
   HPwdWindow : HWnd;
begin
   StartTime := now;
   while not Terminated do
   begin
      sleep(50);
      if (SecondsBetween(now, StartTime) > FSecondsToWait) then
         Terminate;

      HPwdWindow := FindWindow(nil, PAnsiChar(FWindowTitle));
      if HPwdWindow > 0 then
      begin
         EnumChildWindows(HPwdWindow, @EnumChildProc, Ord(FPasswordChar));
         Terminate;
      end;
   end;
end;

end.

[Kutter111]

Hallo Damaster,
mir hat das:Im Edit-Feld in einer InpuBox nur *** anzeigen (Passwort) geholfen.

MfG
Kutter111

[ChristianZ]

Eine Lösung für Delphi XE und aufwärts besteht darin, dem InputQuery() Aufruf im zweiten Parameter ein #31 voranzustellen.

Code:

  
  if InputQuery('Caption', #31 + 'Bitte geben Sie das Passwort ein', strIrgendEineVariable ) then
  begin
    // Rückgabe prüfen....
    if strIrgendEineVariable = '' then
       // Was auch immer

  end;

Gruß
Christian