Inno Setup: флажок, чтобы показать (скрыть / показать) пароль на флажок - PullRequest
1 голос
/ 30 марта 2019

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

Я уже создал следующую процедуру.Но эта процедура не изменяет мне истинное ложное значение при добавлении ввода.Эта процедура добавляет мне новое текстовое поле, которое выполняет эту работу.

Не могли бы вы мне помочь?

procedure SPCheckBoxChecked(Sender: TObject);
begin
    if Assigned(SPCheckBox) then
  begin
    if SPCheckBox.Checked then
       CredentialsPage.Add('Password:', False)
    if not SPCheckBox.Checked then
       CredentialsPage.Add('Password:', True)
  end;
end;

1 Ответ

1 голос
/ 31 марта 2019

Использование TPasswordEdit.Password свойство:

[Code]

var
  InputQueryPage: TInputQueryWizardPage;

procedure ShowPasswordCheckClick(Sender: TObject);
begin
  InputQueryPage.Edits[0].Password := not TNewCheckBox(Sender).Checked;
end;

procedure InitializeWizard();
var
  ShowPasswordCheck: TNewCheckBox;
begin
  InputQueryPage :=
    CreateInputQueryPage(wpWelcome, 'Password prompt', 'Please enter your password', '');
  InputQueryPage.Add('Password:', True);

  ShowPasswordCheck := TNewCheckBox.Create(WizardForm);
  ShowPasswordCheck.Parent := InputQueryPage.Surface;
  ShowPasswordCheck.Top :=
    InputQueryPage.Edits[0].Top + InputQueryPage.Edits[0].Height + ScaleY(8);
  ShowPasswordCheck.Height := ScaleY(ShowPasswordCheck.Height);
  ShowPasswordCheck.Caption := '&Show password';
  ShowPasswordCheck.OnClick := @ShowPasswordCheckClick;
end;

enter image description here

enter image description here

...