如何在按钮单击时跳转到页面？

Question

我需要一个简单的东西：有提前和正常安装按钮。对于正常情况，这很简单——我使用默认的下一步按钮和 NextButtonClick 上的一些逻辑来设置条件变量并使用 ShouldSkipPage 跳过一些页面。然而，对于高级设置，我创建了一个新按钮，点击后我需要做的就是打开下一个安装程序页面：

procedure CurPageChanged(CurPageID : Integer);
begin
if CurPageID = wpWelcome then begin
    AdvancedButton := TButton.Create(WizardForm);
    AdvancedButton.Caption := 'Advanced Install';
    AdvancedButton.Left := WizardForm.InfoAfterPage.Left + 10;
    AdvancedButton.Top := WizardForm.InfoAfterPage.Height + 88;
    AdvancedButton.Parent := WizardForm.NextButton.Parent;
    # AdvancedButton.OnClick :=  What shall I call to open say next page (or some page by given PageID value)
    end
    else begin
    AdvancedButton.Visible := False;
    end;

end;

那么我应该调用什么来打开按钮单击时的下一页（或给定 PageID 值的某些页面）（在 Inno API 中找不到任何 NextPage 或某些 SetPage 函数）？

Answer 1

在 Inno Setup 中没有“直接跳转到页面”之类的东西。 您只需在“高级模式”中安静地跳过某些页面即可。

只需执行与常规安装程序相同的操作即可。设置一个变量来保持“高级模式”。点击前进按钮后：

[Code]
var
  IsAdvanced: Boolean;

procedure AdvancedButtonClick(Sender: TObject);
begin
  IsAdvanced := True;
  WizardForm.NextButton.OnClick(nil);
end;

procedure InitializeWizard;
var
  AdvancedButton: TNewButton;
begin
  // not necessary; just for sure
  IsAdvanced := False;
  // create the button
  AdvancedButton := TNewButton.Create(WizardForm);
  AdvancedButton.Caption := 'Advanced Install';
  AdvancedButton.Left := WizardForm.InfoAfterPage.Left + 10;
  AdvancedButton.Top := WizardForm.InfoAfterPage.Height + 88;
  AdvancedButton.Parent := WizardForm.NextButton.Parent;
  AdvancedButton.OnClick := @AdvancedButtonClick;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  // the <page where you want to end up> fill with the wizard page constant
  // of the page where you want to end up, e.g. wpReady
  Result := IsAdvanced and (PageID <> <page where you want to end up>);
end;

使用此逻辑，您可以模拟安静地“跳转”到某个页面。