Inno Setup：添加按钮动作跳转到下一页

Question

在Inno Setup安装程序中，我需要一个单独的自定义按钮来模仿单击下一个按钮的行为，它们是我可以应用于自定义的OnClick处理程序的函数按钮来做到这一点？

Answer 1

可以触发下一个按钮的OnClick事件手动比如这样（这里唯一的参数是Sender，通常是触发事件的对象，但在原来的下一个按钮单击事件处理程序是这样的参数忽略，因此，让我们传递一个空，nil对象那里）：

WizardForm.NextButton.OnClick(nil); 

所以剩下的就是有关创建您自己的按钮，并呼吁像上面代码以模仿单击下一步按钮，例如：

[Setup] 
AppName=My Program 
AppVersion=1.5 
DefaultDirName={pf}\My Program 

[Code] 
procedure MyNextButtonClick(Sender: TObject); 
begin 
    WizardForm.NextButton.OnClick(nil); 
end; 

procedure InitializeWizard; 
var 
    MyNextButton: TNewButton; 
begin 
    MyNextButton := TNewButton.Create(WizardForm); 
    MyNextButton.Parent := WizardForm; 
    MyNextButton.Left := 10; 
    MyNextButton.Top := WizardForm.NextButton.Top; 
    MyNextButton.Caption := 'Click me!'; 
    MyNextButton.OnClick := @MyNextButtonClick; 
end;