Inno Setup：确保用户已阅读“信息”页面

debugcn 发表于 Dev

安德烈·莫伊谢耶夫（Andrey Moiseev）

我有一个Information页面，该页面是使用infobefore文件激活的：

[Setup]
InfoBeforeFile=infobefore.txt

我想要：

添加一个复选框（或几个复选框），用户必须检查该复选框以表明他已关注该信息。
仅当用户选中复选框时，才应允许该用户继续。我想禁用“下一步”按钮或显示一个消息框，这比较容易。

是否有捷径可寻？

马丁·普里克里（Martin Prikryl）

只需在InfoBeforePage页面上添加一个新复选框即可。并NextButton根据复选框状态更新状态。

[Setup]
InfoBeforeFile=infobefore.txt

[Code]

var
  InfoBeforeCheck: TNewCheckBox;

procedure CheckInfoBeforeRead;
begin
  { Enable the NextButton only if InfoBeforeCheck is checked or }
  { installer is running in the silent mode }
  WizardForm.NextButton.Enabled := InfoBeforeCheck.Checked or WizardSilent;
end;

procedure InfoBeforeCheckClick(Sender: TObject);
begin
  { Update state of the Next button, whenever the InfoBeforeCheck is toggled }
  CheckInfoBeforeRead;
end;  

procedure InitializeWizard();
begin
  InfoBeforeCheck := TNewCheckBox.Create(WizardForm);
  InfoBeforeCheck.Parent := WizardForm.InfoBeforePage;
  { Follow the License page layout }
  InfoBeforeCheck.Top := WizardForm.LicenseNotAcceptedRadio.Top;
  InfoBeforeCheck.Left := WizardForm.LicenseNotAcceptedRadio.Left;
  InfoBeforeCheck.Width := WizardForm.LicenseNotAcceptedRadio.Width;
  InfoBeforeCheck.Height := WizardForm.LicenseNotAcceptedRadio.Height;
  InfoBeforeCheck.Caption := 'I swear I read this';
  InfoBeforeCheck.OnClick := @InfoBeforeCheckClick;

  { Make the gap between the InfoBeforeMemo and the InfoBeforeCheck the same }
  { as the gap between LicenseMemo and LicenseAcceptedRadio }
  WizardForm.InfoBeforeMemo.Height :=
    ((WizardForm.LicenseMemo.Top + WizardForm.LicenseMemo.Height) -
     WizardForm.InfoBeforeMemo.Top) +
    (InfoBeforeCheck.Top - WizardForm.LicenseAcceptedRadio.Top);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpInfoBefore then
  begin
    { Initial state of the Next button }
    CheckInfoBeforeRead;
  end;
end;