德尔福JVCL - JvWizard，运行时添加页面

Question

我需要在运行时向 TJvWizard 添加一个页面（该页面可能是由插件注册的）。我尝试将其添加到 JvWizard.Pages，但它似乎不是有效的方法 - 我需要将该页面作为倒数第二页插入...

我尝试了代码

AddWizardPage(APage: TJvWizardCustomPage);
begin
if APage <> nil then
  begin
    Apage.Wizard:=JvWizard1;
    JvWizard1.Pages.Insert(JvWizard1.Pages.Count - 1 , APage);
    JvWizardRouteMapNodes1.Invalidate;
  end;
end;

，但它被添加为 RouteMap 上的最后一页，并且是在启动时显示，因为它是第一个...

提前感谢！

Answer 1

您必须将 Page.Wizard 属性设置为 Wizard 组件，而不是调用 Pages.Insert。这将设置父级并插入页面。

procedure TForm1.FormCreate(Sender: TObject);
var
  Page: TJvWizardCustomPage;
begin
  Page := TJvWizardWelcomePage.Create(Self);
  Page.Wizard := JvWizard1;

  JvWizard1.ActivePage := Page;
end;