PasswordChar в Inpubox

[taracqk]

Есть конечно максимально легкий способ. Это создать (File -> New, в открывшемся диалоговом окне выберите закладку Dialogs) PasswordDialog. Но мне хочется сделать простой inpubox инструментом для ввода пасса.

[Xardas]

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

[GunSmoker]

Проблема в том, что не очень потятно, как подключить измененный инпут к проекту

У меня закралось страшное подозрение....

Ты вообще в курсе, что код можно разносить по модулям, как тебе удобно?

Например, так:

Скачать LoginDialog.pas

и тогда:

unit Unit1;

interface

...

implementation

{$R *.res}

uses
  LoginDialog; // <- следи за руками, всего одна строчка :))

procedure TForm1.Button1Click(Sender: TObject);
var
  Login, Password: String;
  SavePassword: Boolean;
begin
  if not LoginUser('Вход в программу', 'Введите данные вашей учётки:',
                   Login, Password, SavePassword) then
    Exit;

  if (Login <> 'aaa') and
     (Password <> 'bbb') then
    raise Exception.Create('Неверный логи или пароль');

  Caption := 'Вошли!';
end;

end.

Ура! Желаемая одна строчка. :D

P.S. Файл LoginDialog.pas можно положить в папку с проектом, либо в любое иное место по собственному желанию (но тогда к проекту его надо добавить через Project/Add to project).

[taracqk]

Спасибо большое.