在 Inno Setup 许可证页面上,将复选框替换为“我同意”按钮

tru*_*ru7 3 inno-setup

我想删除“我接受协议” / “不接受”复选框,并将“下一步”按钮的文字替换为简单的“我同意”,毕竟看起来更清晰直接。

您能给我一些示例或在文档中查找的位置吗?

Mar*_*ryl 5

正如@Ken 指出的,如果您需要用户真正接受许可证,请不要这样做。点击时,看似简单的“下一步”按钮,很难构成自觉的同意。

不同的是,当用户实际上不需要接受许可证时,就像 GPL 的情况一样(它实际上明确禁止要求接受)。那么你的方法可能没问题。除非您不应该将按钮更改为“我同意”

[Code]

procedure InitializeWizard();
begin
  // Hide radio buttons and pre-select "accept", to enable "next" button
  WizardForm.LicenseAcceptedRadio.Checked := True;
  WizardForm.LicenseAcceptedRadio.Visible := False;
  WizardForm.LicenseNotAcceptedRadio.Visible := False;
  WizardForm.LicenseMemo.Height :=
    WizardForm.LicenseNotAcceptedRadio.Top +
    WizardForm.LicenseNotAcceptedRadio.Height -
    WizardForm.LicenseMemo.Top - ScaleY(5);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  // Dubious, but you have asked for it
  if CurPageID = wpLicense then
  begin
    WizardForm.NextButton.Caption := '&I agree';
  end;
end;
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述