checkbox - 在 Inno 设置中的许可证向导页面上用复选框替换单选按钮

Question

是否有任何简单的方法可以在不创建自定义页面的情况下用 Inno Setup 中的单个（选中/未选中）复选框替换许可证向导页面上的标准 2 个单选按钮？

Answer 1

由于没有设置可以在许可证单选按钮和某些许可证复选框之间切换（至少只是因为 上没有它的组件WizardForm），您需要自己创建它。

以下代码隐藏了原始许可证单选按钮，并在向导初始化时的同一位置创建了一个复选框。此许可证复选框正在模拟其OnClick事件处理程序中的单选按钮选择以保持其原始功能。这是代码，它允许您访问向导初始化事件范围之外的许可证复选框。如果您以后不需要访问此复选框，您可以使用this version该帖子：

[code]

var
  LicenseCheckBox: TNewCheckBox;

procedure OnLicenseCheckBoxClick(Sender: TObject);
var
  LicenseAccepted: Boolean;
begin
  LicenseAccepted := (Sender as TNewCheckBox).Checked;
  WizardForm.LicenseAcceptedRadio.Checked := LicenseAccepted;
  WizardForm.LicenseNotAcceptedRadio.Checked := not LicenseAccepted;
end;

procedure InitializeWizard;
begin
  WizardForm.LicenseAcceptedRadio.Hide;
  WizardForm.LicenseNotAcceptedRadio.Hide;

  LicenseCheckBox := TNewCheckBox.Create(WizardForm);
  LicenseCheckBox.Parent := WizardForm.LicensePage;
  LicenseCheckBox.Left := 0;
  LicenseCheckBox.Top := WizardForm.LicenseMemo.Top + 
    WizardForm.LicenseMemo.Height + 8;
  LicenseCheckBox.Width := WizardForm.LicenseMemo.Width;
  LicenseCheckBox.Caption := ' I accept the license agreement';
  LicenseCheckBox.OnClick := @OnLicenseCheckBoxClick;
end;