Inno Setup:添加按钮动作跳转到下一页
问题描述:
在Inno Setup安装程序中,我需要一个单独的自定义按钮来模仿单击下一个按钮的行为,它们是我可以应用于自定义的OnClick处理程序的函数按钮来做到这一点?Inno Setup:添加按钮动作跳转到下一页
答
可以触发下一个按钮的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;
禾非常感谢,谢谢! – jhamburg 2014-10-06 17:57:46
不客气! – TLama 2014-10-06 18:45:55