Inputbox mit Passwordchar

[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