Red de conocimiento informático - Conocimiento del nombre de dominio - Cómo hacer que el cuadro de entrada de Delphi muestre una contraseña

Cómo hacer que el cuadro de entrada de Delphi muestre una contraseña

La función inputBox de Delphi está definida en la unidad del cuadro de diálogo y su código es el siguiente:

El núcleo del código es llamar a la función InputQuery:

Normalmente, InputBox no muestra tildes de contraseña, pero si desea mostrar tildes de contraseña, existen los siguientes métodos:

1.Código fuente de la función InputQuery para admitir la visualización de caracteres de contraseña.

2. Cree un formulario InputBox directamente.

3. Utilice las funciones de WinAPI para encontrar el formulario InputBox y enviar el mensaje EM_SETPASSWORDCHAR. unidad?Unidad1;

interfaz

usa

Windows,?Mensajes,?SysUtils,?Variantes,?Clases,?Gráficos,?Controles,?Formularios,

Diálogos, ?StdCtrls;

const?InputboxMessage?=?WM_USER ?200; //Definir mensaje

tipo

TForm1; ?=?class(TForm)

Botón1:?TButton;

procedimiento?Button1Click(Sender:?TObject);

privado

{?Privado?}

fin;

var

Form1:?TForm1

implementación

{$R?*.dfm}

procedimiento?TForm1.Button1Click(Sender:?TObject);

comenzar PostMessage(Handle,?InputboxMessage, 0, 0);?/ Enviar mensaje inputbox('a', 'b', 'ssss')

end;

procedure?TForm1.InputboxPassword(var?MSG:? TMessage);

var InputForm,?Hedit:?THandle;

begin InputForm:=?Screen.Forms[0].Handle; if?InputForm?lt;gt;?0 ?luego comience Heedit:=?FindWindowEx(InputForm, 0, 'Tedit', nil); p>fin;

fin.