带单选按钮的TInputDirWizardPage实现方案咨询

我来给你捋捋这个需求的实现思路：

首先，直接自定义TInputDirWizardPage是行不通的——因为这个页面类是Inno Setup封装好的固定结构，它的核心控件（目录输入框、浏览按钮）是预设布局的，没办法直接在上面添加单选按钮这类额外控件，所以这条路走不通。

你需要创建一个CustomPage（自定义页面），不过不用完全从零开发目录输入功能，可以复用Inno Setup内置的控件来实现和TInputDirWizardPage一致的效果，具体步骤和代码示例如下：

实现步骤 #

1. 创建自定义页面框架
2. 添加两个单选按钮控件
3. 复用内置的TDirEdit（目录输入框）和TButton（浏览按钮）来实现路径选择功能
4. 绑定单选按钮的点击事件，控制路径输入控件的启用/禁用状态
5. 补充路径验证逻辑，和默认的TInputDirWizardPage保持一致

代码示例（Inno Setup Pascal脚本） #

[Code]
var
  CustomInstallPage: TWizardPage;
  RadioBtnDefault: TRadioButton;
  RadioBtnCustom: TRadioButton;
  DirEdit: TDirEdit;
  BrowseBtn: TButton;

procedure RadioBtnClick(Sender: TObject);
begin
  // 当选中第二个单选按钮时启用路径输入控件，否则禁用
  DirEdit.Enabled := RadioBtnCustom.Checked;
  BrowseBtn.Enabled := RadioBtnCustom.Checked;
  // 如果禁用的话，可以清空输入框（可选）
  if not RadioBtnCustom.Checked then
    DirEdit.Text := '';
end;

procedure BrowseBtnClick(Sender: TObject);
var
  Folder: string;
begin
  // 调用内置的文件夹选择对话框，和TInputDirWizardPage的浏览逻辑一致
  Folder := DirEdit.Text;
  if BrowseForFolder('选择安装目录', Folder, False) then
    DirEdit.Text := Folder;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  // 如果当前是自定义页面，且选中了自定义路径选项，验证路径有效性
  if CurPageID = CustomInstallPage.ID then
  begin
    if RadioBtnCustom.Checked then
    begin
      if DirEdit.Text = '' then
      begin
        MsgBox('请选择有效的安装目录。', mbError, MB_OK);
        Result := False;
      end
      else if not DirExists(DirEdit.Text) then
      begin
        // 询问是否创建目录，和默认逻辑一致
        if MsgBox('指定的目录不存在，是否创建？', mbConfirmation, MB_YESNO) = IDYES then
          ForceDirectories(DirEdit.Text)
        else
          Result := False;
      end;
    end;
  end;
end;

procedure InitializeWizard;
var
  LabelText: TLabel;
begin
  // 创建自定义页面
  CustomInstallPage := CreateCustomPage(wpSelectDir, '安装位置选择', '请选择安装方式');

  // 添加第一个单选按钮（默认路径）
  RadioBtnDefault := TRadioButton.Create(WizardForm);
  RadioBtnDefault.Parent := CustomInstallPage.Surface;
  RadioBtnDefault.Left := 16;
  RadioBtnDefault.Top := 16;
  RadioBtnDefault.Width := CustomInstallPage.Surface.Width - 32;
  RadioBtnDefault.Caption := '使用默认安装目录';
  RadioBtnDefault.Checked := True;
  RadioBtnDefault.OnClick := @RadioBtnClick;

  // 添加第二个单选按钮（自定义路径）
  RadioBtnCustom := TRadioButton.Create(WizardForm);
  RadioBtnCustom.Parent := CustomInstallPage.Surface;
  RadioBtnCustom.Left := 16;
  RadioBtnCustom.Top := RadioBtnDefault.Top + RadioBtnDefault.Height + 8;
  RadioBtnCustom.Width := CustomInstallPage.Surface.Width - 32;
  RadioBtnCustom.Caption := '自定义安装目录';
  RadioBtnCustom.OnClick := @RadioBtnClick;

  // 添加路径输入框（复用TDirEdit，和TInputDirWizardPage一致）
  DirEdit := TDirEdit.Create(WizardForm);
  DirEdit.Parent := CustomInstallPage.Surface;
  DirEdit.Left := 16;
  DirEdit.Top := RadioBtnCustom.Top + RadioBtnCustom.Height + 16;
  DirEdit.Width := CustomInstallPage.Surface.Width - 100;
  DirEdit.Enabled := False;
  // 可以默认设置为默认安装路径，比如 WizardDirValue
  DirEdit.Text := WizardDirValue;

  // 添加浏览按钮
  BrowseBtn := TButton.Create(WizardForm);
  BrowseBtn.Parent := CustomInstallPage.Surface;
  BrowseBtn.Left := DirEdit.Left + DirEdit.Width + 8;
  BrowseBtn.Top := DirEdit.Top;
  BrowseBtn.Width := 75;
  BrowseBtn.Caption := '浏览(&B)...';
  BrowseBtn.Enabled := False;
  BrowseBtn.OnClick := @BrowseBtnClick;

  // 可选：添加提示标签，和默认页面风格一致
  LabelText := TLabel.Create(WizardForm);
  LabelText.Parent := CustomInstallPage.Surface;
  LabelText.Left := 16;
  LabelText.Top := DirEdit.Top + DirEdit.Height + 8;
  LabelText.Width := CustomInstallPage.Surface.Width - 32;
  LabelText.Caption := '指定的目录将用于安装所有程序文件。';
  LabelText.Font.Style := LabelText.Font.Style - [fsBold];
end;

关键说明 #

• 我们没有自己开发目录输入控件，而是直接用了Inno Setup内置的TDirEdit，它自带路径格式验证的特性，和TInputDirWizardPage的输入框行为完全一致。
• 浏览按钮的逻辑调用了内置的BrowseForFolder函数，和默认页面的浏览对话框完全相同，保证了用户体验的一致性。
• 单选按钮的点击事件直接控制控件的启用状态，逻辑简单清晰。
• 补充了NextButtonClick里的路径验证逻辑，和默认的TInputDirWizardPage验证规则对齐，比如检查路径是否为空、是否存在，不存在时询问是否创建。

这样实现的页面既满足了你的单选按钮切换需求，又完全复用了Inno Setup原生的目录输入功能，不用自己造轮子，还能保持和默认向导页面一致的风格。

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