Inno Setup中如何设置Select Components页面的初始焦点组件？

一、指定默认获得初始焦点的组件 #

Inno Setup本身没有提供直接的配置项来指定组件选择页面的初始焦点组件，但我们可以通过编写Pascal脚本，在页面显示时手动将焦点定位到目标组件。核心思路是：当页面切换到wpSelectComponents时，找到目标组件在列表中的索引，然后设置列表的选中项并转移焦点。

二、定位到组件列表中的特定项/组件 #

其实上面的方法已经能实现这个需求，下面是完整的代码实现：

首先，在脚本的[Code]段中添加以下函数和事件处理程序：

procedure CurPageChanged(CurPageID: Integer);
var
  TargetIndex: Integer;
begin
  // 当进入组件选择页面时执行
  if CurPageID = wpSelectComponents then
  begin
    // 替换成你需要聚焦的组件的Key（对应[Components]段中的Name值）
    TargetIndex := GetComponentIndexByKey('MyComponentKey');
    if TargetIndex <> -1 then
    begin
      // 设置列表选中目标项
      WizardForm.ComponentsList.ItemIndex := TargetIndex;
      // 确保目标项在列表可视区域内（如果列表过长）
      WizardForm.ComponentsList.EnsureVisible(TargetIndex);
      // 将焦点转移到组件列表，此时焦点会落在目标项上
      WizardForm.ComponentsList.SetFocus;
    end;
  end;
end;

// 根据组件Key获取其在列表中的显示索引
function GetComponentIndexByKey(const Key: string): Integer;
var
  I: Integer;
  CompIndex: Integer;
begin
  Result := -1;
  // 先通过Key找到组件在SetupData中的索引
  CompIndex := SetupData.FindComponentIndex(Key);
  if CompIndex = -1 then Exit;
  
  // 遍历组件列表，找到对应的显示项索引
  for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do
  begin
    if WizardForm.ComponentsList.ItemIndexToComponentIndex(I) = CompIndex then
    begin
      Result := I;
      Break;
    end;
  end;
end;

代码说明： #

• CurPageChanged是Inno Setup的内置事件，当页面切换时触发。我们在这里判断当前页面是否是组件选择页面，然后执行焦点定位逻辑。
• GetComponentIndexByKey函数通过组件的Key（即[Components]段中每个组件的Name属性值）找到它在列表中的显示索引。因为组件列表的显示顺序可能和定义顺序有差异（比如有父/子组件缩进），所以需要通过ItemIndexToComponentIndex来映射显示索引和组件的实际索引。
• EnsureVisible方法可以确保目标组件不会因为列表过长而被隐藏在可视区域外。
• 最后调用SetFocus将焦点转移到组件列表，此时焦点就会落在我们指定的组件项上。

使用示例： #

假设你的[Components]段定义如下：

[Components]
Name: "main"; Description: "主程序"; Types: full compact custom
Name: "plugin"; Description: "扩展插件"; Types: full
Name: "docs"; Description: "使用文档"; Types: full custom

如果你想让焦点默认落在「扩展插件」上，只需将GetComponentIndexByKey的参数改为'plugin'即可。

另外，如果还需要默认选中该组件，可以在设置ItemIndex后添加一行：

WizardForm.ComponentsList.Checked[TargetIndex] := True;

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