将 Inno Setup 中许可证向导页面上的单选按钮替换为复选框

有没有简单的方法可以用 Inno Setup 中的单个（选中/未选中）复选框替换许可证向导页面上的标准 2 个单选按钮，而无需创建自定义页面？

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

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

[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;