我想删除“我接受协议” / “不接受”复选框,并将“下一步”按钮的文字替换为简单的“我同意”,毕竟看起来更清晰直接。
您能给我一些示例或在文档中查找的位置吗?
正如@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)
| 归档时间: |
|
| 查看次数: |
626 次 |
| 最近记录: |