Passwort bei eingabe durch ******** ersetzen

[Aphton]

Falls delphi 5 dir die Möglichkeit noch nicht bietet, rufe diese Funktion mal auf!

Delphi-Quellcode:

procedure MakePasswordChar(EditControl: TEdit; const Enabled: Boolean; const PassChar: Char = '*');
var
  OldStyle, F: DWord;
begin
  OldStyle := GetWindowLong( EditControl.Handle, GWL_STYLE );
  if OldStyle and ES_PASSWORD = 0 then
    SetWindowLong( EditControl.Handle, GWL_STYLE, OldStyle or ES_PASSWORD );
  if Enabled then
    SendMessage( EditControl.Handle, EM_SETPASSWORDCHAR, Ord(PassChar), 0 )
  else
    SendMessage( EditControl.Handle, EM_SETPASSWORDCHAR, 0, 0 );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MakePasswordChar( Edit1, True );
end;