如何根据Inno Setup单选按钮选择控制自定义页面显示

原代码存在以下关键问题：

• 单选按钮未显式设置分组（虽默认互斥，但显式设置更稳妥）
• NextButtonClick中输入页面创建逻辑错误，未处理默认安装时输入页面不存在的情况
• 语法错误：字符串末尾缺分号、if语句后多余分号导致逻辑失效
• 输入页面插入位置错误，应紧跟安装类型页面而非欢迎页
• 保存文件路径为硬编码无效值

以下是修复后的完整代码：

[Code]
var
  FullRadioButton: TNewRadioButton;
  PartRadioButton: TNewRadioButton;
  CustomPage: TWizardPage;
  UserInputsPage: TInputQueryWizardPage;
  FullDescLabel: TLabel;
  PartDescLabel: TLabel;
  url: String;

const
  FullDescText = 'Full Installation.';
  PartDescText = 'Partial Installation.';

procedure InitializeWizard; 
begin
  // 创建安装类型选择页面
  CustomPage := CreateCustomPage(wpWelcome, 'Installation type', 'Choose your preferred installation type');
  
  // 默认安装单选按钮
  FullRadioButton := TNewRadioButton.Create(WizardForm);
  FullRadioButton.Parent := CustomPage.Surface;
  FullRadioButton.Top := 16;
  FullRadioButton.Width := CustomPage.SurfaceWidth;
  FullRadioButton.Font.Style := [fsBold];
  FullRadioButton.Font.Size := 9;
  FullRadioButton.Caption := 'Default Installation';
  FullRadioButton.GroupIndex := 0;
  FullRadioButton.Checked := True;

  // 默认安装描述标签
  FullDescLabel := TLabel.Create(WizardForm);
  FullDescLabel.Parent := CustomPage.Surface;
  FullDescLabel.Left := 8;
  FullDescLabel.Top := FullRadioButton.Top + FullRadioButton.Height + 8;
  FullDescLabel.Width := CustomPage.SurfaceWidth; 
  FullDescLabel.Height := 40;
  FullDescLabel.AutoSize := False;
  FullDescLabel.Wordwrap := True;
  FullDescLabel.Caption := FullDescText;

  // 自定义安装单选按钮
  PartRadioButton := TNewRadioButton.Create(WizardForm);
  PartRadioButton.Parent := CustomPage.Surface;
  PartRadioButton.Top := FullDescLabel.Top + FullDescLabel.Height + 16;
  PartRadioButton.Width := CustomPage.SurfaceWidth;
  PartRadioButton.Font.Style := [fsBold];
  PartRadioButton.Font.Size := 9;
  PartRadioButton.Caption := 'Custom Installation';
  PartRadioButton.GroupIndex := 0;

  // 自定义安装描述标签
  PartDescLabel := TLabel.Create(WizardForm);
  PartDescLabel.Parent := CustomPage.Surface;
  PartDescLabel.Left := 8;
  PartDescLabel.Top := PartRadioButton.Top + PartRadioButton.Height + 8;
  PartDescLabel.Width := CustomPage.SurfaceWidth;
  PartDescLabel.Height := 40;
  PartDescLabel.AutoSize := False;
  PartDescLabel.Wordwrap := True;
  PartDescLabel.Caption := PartDescText;

  // 提前创建输入页面，默认隐藏
  UserInputsPage := CreateInputQueryPage(CustomPage.ID,
        'Url information', 'Enter your URL',
        'Please specify the URL, then click Next.');
  UserInputsPage.Add('URL:', False);
  UserInputsPage.Values[0] := '';
  UserInputsPage.Visible := False;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;

  // 处理安装类型页面的下一步逻辑
  if CurPageID = CustomPage.ID then
  begin
    UserInputsPage.Visible := PartRadioButton.Checked;
  end;

  // 处理输入页面的保存逻辑
  if CurPageID = UserInputsPage.ID then
  begin
    url := UserInputsPage.Values[0];
    // 保存到安装目录下的配置文件，可自行修改路径
    SaveStringToFile(ExpandConstant('{app}\user_config.txt'), 
      'user_input="'+url+'"'+#13#10, True);
  end;
end;

关键修复说明 #

1. 单选按钮分组：给两个单选按钮设置相同的GroupIndex，确保只能选中一个
2. 输入页面管理：提前创建输入页面并默认隐藏，通过Visible属性根据单选选择控制显示状态，避免重复创建或空引用错误
3. 页面顺序调整：将输入页面插入到安装类型页面之后，符合正常安装流程逻辑
4. 语法修正：补全缺失的分号，移除if语句后的无效分号，确保逻辑正确执行
5. 合法路径设置：使用ExpandConstant('{app}')获取安装目录作为保存路径，避免硬编码无效路径

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