更改 Inno Setup 启动时的焦点控制

Question

如何更改欢迎页面上的焦点控件？它目前专注于 NextButton。但我需要将其更改为 CancelButton（或者甚至是我以编程方式添加的任何其他按钮，如关于按钮）

我在 InitializeWizard 事件中试过这个：

WizardForm.ActiveControl := CancelButton;
CancelButton.Default := true;

但没有成功。即使我尝试了这里描述的东西：http://www.delphigroups.info/2/f3/324879.html

SendMessage(Handle, WM_NEXTDLGCTL, 0, 0 );

没有成功。

如何解决这个问题？

Answer 1

在 InitializeWizard 中更改向导的 ActiveControl 为时过早。之后它将更改为 Next 按钮。

在 CurPageChanged(wpWelcome):

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpWelcome then
    WizardForm.ActiveControl := WizardForm.CancelButton;
end;