Inno Setup添加4个许可页面遇到的两类问题求助

• 核心原因：自定义页面的显示顺序由CreateInputOptionPage的第一个参数（父页面ID）决定，若第4个页面的父页面未关联到第3个页面的ID，就会插入到更早的位置。
• 修复步骤：
  1. 确保每个后续许可页的父页面参数是前一个自定义页面的ID，而非默认的wpLicense或其他早序页面ID。
  2. 正确的创建顺序示例：

     var
       Page2, Page3, Page4: TInputOptionPage;
     
     procedure InitializeWizard;
     begin
       // 第2个许可页：接在默认许可页后
       Page2 := CreateInputOptionPage(wpLicense, '许可协议2', '', '', False, False);
       // 第3个许可页：接在Page2后
       Page3 := CreateInputOptionPage(Page2.ID, '许可协议3', '', '', False, False);
       // 第4个许可页：接在Page3后
       Page4 := CreateInputOptionPage(Page3.ID, '许可协议4', '', '', False, False);
     end;
     

  3. 检查代码中是否误将Page4的父页面设为wpLicense，导致它插队到默认许可页之后、Page2之前。

• 核心原因：自定义选项页不会自动控制Next按钮状态，需手动初始化并绑定选项变更事件。
• 修复步骤：
  1. 给第2个页面绑定OnChange事件，在选项切换时更新Next按钮的启用状态。
  2. 初始化页面时，默认选中“我不接受”后，立即调用一次状态更新函数，确保按钮初始为禁用。
  3. 示例代码：

     procedure Page2OptionChange(Sender: TObject);
     begin
       // 假设索引0为“我接受”，索引1为“我不接受”
       WizardForm.NextButton.Enabled := (Page2.SelectedIndex = 0);
     end;
     
     procedure InitializeWizard;
     begin
       Page2 := CreateInputOptionPage(wpLicense, '许可协议2', '', '', False, False);
       Page2.Add('我接受');
       Page2.Add('我不接受');
       Page2.SelectedIndex := 1; // 默认选中“我不接受”
       Page2.OnChange := @Page2OptionChange;
       Page2OptionChange(nil); // 初始化时立即更新按钮状态
     end;
     

  4. 排查是否遗漏了初始化时的状态更新，或者OnChange事件未正确绑定，导致初始状态下按钮未被禁用。

内容的提问来源于stack exchange，提问作者light