Mostrar y ocultar texto de un TEdit creado en tiempo de ejecución

[ecfisa]

Hola wilcg.

Ejemplo:

Código Delphi [-]
...
implementation

var
  EditCount: Integer = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize; // a fines del ejemplo
end;

// Crear un Edit
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TEdit.Create(Self) do
  begin
    Name:= 'MiEdit'+IntToStr(EditCount);
    Parent:= Self;
    PasswordChar:= '*'; // oculta por defecto
    PopupMenu:= PopupMenu1;
    Width:= 100;
    Height:= 21;
    Left:= Random(Self.ClientWidth-100)+5;
    Top := Random(Self.ClientHeight-21)+5;
    //...
    Inc(EditCount);
  end;
end;

// Adecuar el texto a la acción
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  if (PopupMenu1.PopupComponent as TEdit).PasswordChar = #0 then
    miShowHidePwd.Caption:= 'Ocultar contraseña'
  else
    miShowHidePwd.Caption:= 'Mostrar contraseña';
end;

// TMenuItem del TPopupMenu (ocultar/mostrar)
procedure TForm1.miShowHidePwdClick(Sender: TObject);
const
  PWDCHAR: array[Boolean] of Char = (#0, '*');
var
  E: TEdit;
begin
  E:= FindComponent(PopupMenu1.PopupComponent.Name) as TEdit;
  if Assigned(E) then
    E.PasswordChar:= PWDCHAR[E.PasswordChar = #0]
end;

Saludos