Delphi password edit control

I found a good solution to getting decent password edit controls in Delphi applications, but it took a while to get a complete unit together, so thought I'd save you the time by putting the full unti source code here. One thing to note, don't set the PasswordChar property, as this will override the proper Windows style password character.

unit PasswordEdit;

interface

uses
  StdCtrls, Controls, Windows;

type
  TPasswordEdit = class(TEdit)
    protected
      procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure Register;

implementation

uses
  Classes;

procedure Register;
begin
  RegisterComponents('Samples', [TPasswordEdit]);
end;

procedure TPasswordEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or ES_PASSWORD;
end;

end.