inno-setup – Inno Setup：添加按钮动作以跳至下一页

发布时间：2020-12-15 09:21:07 所属栏目：大数据来源：网络整理

导读：在Inno安装程序安装程序中,我需要一个单独的自定义按钮来模仿单击下一个按钮的行为,它是否可以应用于自定义按钮的OnClick处理程序来执行此操作？解决方法您可以手动触发下一个按钮的OnClick事件,例如这种方式(此处唯一的参数是Sender,它通常是触发事件的对

在Inno安装程序安装程序中,我需要一个单独的自定义按钮来模仿单击下一个按钮的行为,它是否可以应用于自定义按钮的OnClick处理程序来执行此操作？

解决方法

您可以手动触发下一个按钮的OnClick事件,例如这种方式(此处唯一的参数是Sender,它通常是触发事件的对象,但在原始的下一个按钮单击事件处理程序中忽略此参数,所以让我们通过空的,没有对象那里)：

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!