Inno Setup - 显示 MsgBox 并单击 'OK' 返回上一页

Question

我有 'A' 页 TOutputMsgWizardPage 和 'B' 页 TInputQueryWizardPage。

当我点击 B 页面的 'Next' 时，显示一个 MsgBox 包括 'OK' 和 'Cancel' 按钮。当我单击 'OK' 时，返回到 'A' 页面。

这会发生吗？

关于如何实现这一目标的任何提示？

页面顺序为：WelcomePage => OutputMsgPage => InputQueryPage => SelectDirPage

Answer 1

使用 TWizardPage.OnNextButtonClick 处理 "Next" 按钮点击。

处理"Next"按钮时，可以模拟按下"Back"按钮返回上一页。

[Code]

var
  OutputMsgPage: TOutputMsgWizardPage;
  InputQueryPage: TInputQueryWizardPage;

function InputQueryPageNextButtonClick(Sender: TWizardPage): Boolean;
begin
  Result := True;

  if MsgBox('Go back?', mbConfirmation, MB_OKCANCEL) = IDOK then
  begin
    WizardForm.BackButton.OnClick(WizardForm.BackButton);

    Result := False;
  end;
end;

procedure InitializeWizard();
begin
  OutputMsgPage := CreateOutputMsgPage(wpWelcome, 'Output page', '', 'Output page');

  InputQueryPage := CreateInputQueryPage(OutputMsgPage.ID, 'Input page', '', 'Input page');
  InputQueryPage.OnNextButtonClick := @InputQueryPageNextButtonClick;
end;

Inno Setup - 显示 MsgBox 并单击 'OK' 返回上一页

Inno Setup - Show MsgBox and click 'OK' go back to previous page

inno-setup

back-button

pascalscript