Inno Setup启动时如何修改欢迎页面的默认聚焦控件

问题原因 #

你在InitializeWizard事件中修改不生效，是因为该事件触发时安装向导的页面还未完成最终的控件状态初始化，Inno Setup内部会在InitializeWizard执行完成后，重新设置欢迎页的默认焦点为NextButton，你之前的修改会被默认逻辑覆盖。

解决方案 #

通过CurPageChanged事件触发修改，该事件会在页面切换完成、控件状态初始化结束后执行，此时修改的焦点和默认属性不会被覆盖。

场景1：将欢迎页默认焦点改为CancelButton #

procedure CurPageChanged(CurPageID: Integer);
begin
  // 仅匹配欢迎页
  if CurPageID = wpWelcome then
  begin
    // 取消原NextButton的默认按钮属性
    WizardForm.NextButton.Default := False;
    // 给CancelButton设置默认属性并主动聚焦
    WizardForm.CancelButton.Default := True;
    WizardForm.CancelButton.SetFocus;
  end;
end;

场景2：将欢迎页默认焦点改为自定义添加的按钮 #

假设你自定义的按钮变量名为AboutButton，修改逻辑如下：

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpWelcome then
  begin
    WizardForm.NextButton.Default := False;
    // 给自定义按钮设置默认属性并主动聚焦
    AboutButton.Default := True;
    AboutButton.SetFocus;
  end;
end;

补充说明 #

如果你需要修改其他页面的默认焦点，只需要修改CurPageID的判断条件即可，比如许可证页对应wpLicense、安装目录选择页对应wpSelectDir等。

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