Создание маскированного поля ввода пароля с использованием звездочек в Delphi

Delphi , Синтаксис , Текст и Строки

Создание маскированного поля ввода пароля в Delphi с использованием звездочек

При разработке приложений на Delphi, иногда возникает необходимость скрыть вводимый пользователем пароль, чтобы повысить безопасность ввода. В этом руководстве мы рассмотрим, как можно создать маскированное поле ввода пароля, используя звездочки, вместо отображения введенных символов.

Проблема и решение

В стандартной функции InputBox Delphi не предусмотрен режим маскирования вводимых символов. Однако, существуют способы модификации этого поведения, чтобы достичь нужного результата.

Альтернативный ответ: Использование сообщений Windows

Один из способов – отправка специального сообщения в контрол, созданный функцией InputBox, для включения режима маскировки. Ниже приведен пример кода, который можно использовать для этого:

const
   InputBoxMessage = WM_USER + 200;
type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;
   public
   end;
var
   Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);
var
   hInputForm, hEdit: HWND;
begin
   hInputForm := Screen.Forms[0].Handle;
   if (hInputForm <> 0) then
   begin
     hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
     SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
   end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
   InputString: string;
begin
   PostMessage(Handle, InputBoxMessage, 0, 0);
   InputString := InputBox('Input Box', 'Please Enter a Password', '');
end;

Подтвержденный ответ: Использование функции InputQuery

В более новых версиях Delphi, начиная с XE2, функция InputBox и используемая ею InputQuery поддерживают нativoе маскирование ввода. Это достигается путем установки первого символа параметра APrompt в значение меньше 32. Например:

answer := InputBox('a', #31'b', 'c');

В этом примере первый символ 'b' имеет код 31, что меньше 32, и поэтому TEdit.PasswordChar будет установлен в символ '*', скрывая вводимый текст.

Альтернативный ответ: Использование InputQuery с параметром маскировки

Также можно использовать функцию InputQuery, передав ей TRUE в качестве аргумента, чтобы включить маскирование поля ввода:

InputQuery('Authenticate', 'Password:', TRUE, value);

Этот метод доступен в Lazarus, но не работает в Delphi.

Простой способ: Использование специального символа в InputQuery

Для простоты, можно использовать функцию InputQuery, передав ей специальный символ в качестве первого символа параметра APrompt, что приведет к автоматическому маскированию поля ввода:

InputQuery('MyCaption', #0 + 'MyPrompt', Value);

Этот метод работает, так как InputQuery содержит внутреннюю функцию, которая проверяет первый символ параметра APrompt и, если он меньше 32, устанавливает символ маскировки в '*'. Этот метод был протестирован на Delphi 10.4, но точное время внедрения неизвестно.

Заключение

В зависимости от версии Delphi и требований к проекту, можно использовать различные методы для создания маскированного поля ввода пароля. Выбор метода зависит от предпочтений разработчика и специфики проекта.

Создано по материалам из источника по ссылке.

Создание маскированного поля ввода пароля в Delphi с использованием звездочек для обеспечения безопасности ввода.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Текст и Строки ::