InputQuery Passwort

[ghost007]

Hi,
gibt eine Abwandlung des InputQuery Dialogs, welche eine MaskEdit als Eingabefeld hat? Wüsste sonst nicht, wie ich eine Passworteingabe sonst realisieren kann.

Der Aufruf sollte in etwa so aussehen:

Delphi-Quellcode:

procedure SetPassword;
var pw:String; r:boolean;
begin
r:=InputPasswordQuery('Bitte Passwort eingeben',pw);
if r then
begin
 ShowMessage('Passwort wurde eingegeben');
end
end;

//Edit: Falsche Sprache ausgewählt