Inno Setup-显示MsgBox，然后单击“确定”返回上一页

Ricky Chen 发表于 Dev

陈瑞奇

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

当我单击B页的“下一步”时，显示一个MsgBox包括“确定”和“取消”按钮的按钮。当我单击“确定”时，返回到“ A”页面。

会发生吗？

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

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

马丁·普里克里（Martin Prikryl）

使用TWizardPage.OnNextButtonClick处理“下一步”按钮的点击。

当处理“下一步”按钮时，您可以模拟按下“返回”按钮返回到上一页。

[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;

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。