我有“A”页面 TOutputMsgWizardPage
和“B”页面 TInputQueryWizardPage
。
当我点击 B 页面的“下一步”时,显示一个包含“确定”和“取消”按钮的 MsgBox
。当我单击“确定”时,返回到“A”页面。
这会发生吗?
关于如何实现这一目标的任何提示?
页面顺序为:WelcomePage => OutputMsgPage => InputQueryPage => SelectDirPage
最佳答案
使用 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;
关于inno-setup - Inno Setup - 显示 MsgBox 并单击 'OK' 返回上一页,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55294506/