如何在Inno Setup中用单选按钮切换两组不同的组件列表？

这个需求完全可以通过Inno Setup的Pascal脚本实现，核心思路是在Select Components页面动态添加单选按钮，通过按钮点击事件切换不同组件组的可见性。

步骤1：定义两组不同的组件 #

在[Components]段中给不同组的组件加上统一前缀，方便后续区分：

[Components]
; A组（常规组件）
Name: GroupA.Main; Description: "核心功能"; Types: full compact; Flags: fixed
Name: GroupA.Plugin; Description: "扩展插件"; Types: full
; B组（特殊组件）
Name: GroupB.Custom; Description: "定制功能"; Types: full compact; Flags: fixed
Name: GroupB.Tools; Description: "配套工具"; Types: full

步骤2：编写脚本实现单选按钮与组件切换逻辑 #

在[Code]段中添加以下代码，负责创建单选按钮并处理组件切换：

var
  RadioBtnA: TRadioButton;
  RadioBtnB: TRadioButton;

procedure SwitchComponentGroup(Sender: TObject);
var
  ItemIndex: Integer;
  ComponentCaption: String;
begin
  // 遍历所有组件项，根据单选按钮状态设置可见性
  for ItemIndex := 0 to WizardForm.ComponentsList.Items.Count - 1 do
  begin
    ComponentCaption := WizardForm.ComponentsList.Items[ItemIndex].Caption;
    if RadioBtnA.Checked then
      WizardForm.ComponentsList.ItemVisible[ItemIndex] := Pos('GroupA.', ComponentCaption) > 0
    else
      WizardForm.ComponentsList.ItemVisible[ItemIndex] := Pos('GroupB.', ComponentCaption) > 0;
  end;
  // 刷新组件列表显示
  WizardForm.ComponentsList.Refresh;
end;

procedure InitializeWizard;
begin
  // 创建单选按钮A
  RadioBtnA := TRadioButton.Create(WizardForm);
  with RadioBtnA do
  begin
    Parent := WizardForm.SelectComponentsPage;
    Caption := '选项A（常规组件）';
    Left := WizardForm.ComponentsList.Left;
    Top := WizardForm.ComponentsList.Top - 45; // 调整位置到组件列表上方
    Checked := True;
    OnClick := @SwitchComponentGroup;
  end;

  // 创建单选按钮B
  RadioBtnB := TRadioButton.Create(WizardForm);
  with RadioBtnB do
  begin
    Parent := WizardForm.SelectComponentsPage;
    Caption := '选项B（特殊组件）';
    Left := RadioBtnA.Left + RadioBtnA.Width + 25;
    Top := RadioBtnA.Top;
    Checked := False;
    OnClick := @SwitchComponentGroup;
  end;

  // 初始化时执行一次切换，确保默认显示A组
  SwitchComponentGroup(nil);
end;

关键说明 #

• 组件前缀：通过统一前缀（如GroupA.、GroupB.）快速判断组件归属，避免逐个判断的繁琐
• 位置调整：通过修改Top、Left参数可以调整单选按钮的显示位置，适配不同界面布局
• 扩展逻辑：如果需要联动Types下拉菜单的选项，可在SwitchComponentGroup过程中添加对应代码修改WizardForm.TypesCombo的选项

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